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This publication describes the internal 
logic of the FORTRAN IV compiler. 


Section 1 introduces the compiler's 
structure, briefly explaining the primary 
functions of each major division and 
describing the interrelationships of these 
divisions. 


Sections 2 through 7 describe the six 
major divisions; they explain the logic 
required to implement the basic functions 
and objectives and provide a frame of 
reference for the program listings. Common 
data, such as tables and work areas, are 
discussed only to the extent required to 
understand the logic of the major. divi- 
sions. Flowcharts compatible with the 
level of coverage are also provided, as are 
nesting charts which show the linkages 
among the subroutines that compose a major 
division; they show the called and calling 
relationship among the subroutines. In 
support of the nesting charts are decision 
tables that show the calling relationship 
among the subroutines and indicate the con- 
ditions under which subordinate subroutines 
are called. 


All flowcharts for the routines are in 


Section 8, grouped in the same order as ‘the’ 


routines are presented in the text. 


The appendixes contain additional 
reference material. 
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Understanding the material contained in 
this manual requires knowledge of the 
information contained in the following 
manuals: 


IBM System/360 Time Sharing System: IBM 
FORTRAN IV, Form C28-2007: 
IBM System/360 Time Sharing System: 


Concepts and Facilities, Form 
C28-2003 


IBM System/360 Time Sharing System: 
System Logic Summary, Form Y28-2009 


Manuals recommended for a fuller unde- 
rstanding of this manual are: 


IBM System/360 Time Sharing System: 
Command System User's Guide, Form 
C€28-2001 

IBM. System/360 Time Sharing System: 

Linkage Editor, Form c28- 2005 


Sssember 3 Lanquage, Form. ‘C28 2900. 
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The TSS/360 FORTRAN IV compiler is 
implemented in accordance with the conven- 
tions and requirements for systems programs 
in the TSS/360 environment. It is relocat- 
able, reenterable, closed, nonprivileged, 
and nonresident. 


The compiler organization and informa- 
tion flow are designed particularly for 
processing in the time-sharing environment. 
Wherever possible, to reduce the "page- 
turning” load on TSS/360, the intermediate 
data is organized and processed serially, 
in file form, rather than in a form requir- 
ing random access. The presence of the 
entire file in virtual storage ensures fast 
access to its contents; repeated references 
to the same virtual storage page, inherent 
in serial processing, reduces the number of 
pages needed in rapid succession. 


While primarily a conventional batch- 
processor, the compiler contains special 
features making it especially suitable for 
conversational, terminal-oriented opera- 
tion. The compiler syntax analysis per- 
forms statement-by-statement error checking 
of the source program as it is input 
through the Language Processor Control pro- 
gram (LPC). Diagnostic messages are 
returned to the user's terminal via LPC, 
and each appears at the terminal following 
the listing of the statement in which the 
error was detected. LPC gives the user the 
opportunity to correct the error, whether 
it be in the last statement processed, or 
in some earlier statement. Then LPC in- 
forms the compiler of whether a change was 
made and if so, which lines are affected. 
If only the last statement was changed, the 
compiler “forgets" the effect of the last 
statement and begins compilation with the 
statement replacing it. Otherwise, the 
compiler, under direction of LPC, restarts 
compilation from the beginning of the 
source program module. In this manner the 
most common errors, those local to the last 
statement processed, may be corrected with 
minimum loss of time. 


After the END statement has been pro- 
cessed by the first phase, the compiler's 
second phase may detect errors of a more 
global nature (undefined statement labels, 
illegal DO-loop flow, etc.). The resulting 
error messages are passed to LPC, but now 
LPC does not allow the user to supply 
correction lines. When the compiler's 
second phase is complete, LPC gives the 
‘user the opportunity to correct errors or 
to go on. If errors are corrected, the 
compiler will recompile from the beginning 
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of the stored source data set, and another 
conversation is possible. Otherwise, com- 
pilation proceeds to termination through 
the remaining compiler phases. 


Detailed information concerning the con- 
versation between terminal user and compil- 
er is included in the description of the 
Compiler Executive routine (Exec), which 
interfaces with LPC. 


OBJECT PROGRAM MODULES 


The compiler produces an object program 
module (OPM) consisting of a program module 
dictionary (PMD), an optional internal sym- 
bol dictionary (ISD), text (the binary 
instructions and constants), and a: list of 
external names. 


The PMD contains heading information, 
used to identify the module, and a control 
section dictionary (CSD) for each control 
section occurring in the module. The CSD 
specifies which text entries require loader 
address computations or satisfaction of ex- 
ternal references or references to other 
control sections. A complete specification 
of the PMD format is given in Section 7. 


The ISD is a table of source language 
symbols (not subprogram references), the 
attributes associated with those symbols, 
and the control section and relative loca- 
tion within control section assigned to 
each. The ISD information is used by the 
Program Control System (PCS) to relate the 
user symbols with the definitions in the 
OPM. A complete specification of the ISD 
format is given in Section 7. 


SUBPROGRAM CALLS IN OPM TEXT 


The text does not contain the machine 
instructions that actually perform the 
input/output of data; nor does it contain 
the machine instructions to perform the 
more involved mathematical calculations 
such as those for finding the square root 
or the logarithm. The text also does not 
contain the machine instructions that actu- 
ally perform such services as handling 
sense lights, overflows, underflows, excep- 
tions, dumps, and the STOP, PAUSE, and CALL 
EXIT statements. The set of binary 
instructions produced by a compilation con- 
tains code for calls to library subprograms 
to perform these functions. 
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These subprograms are all permanently 
stored in SYSLIB, and consist of: 


e FORTRAN I/O library subprograms. 
TRAN I/O source statements (READ, 
WRITE, BACKSPACE, ENDFILE, REWIND, 
PRIN? or PUNCH) cause the compiler to 
insert, in the object code, calls to 
the appropriate FORTRAN I/O Library 
subprograms. Other FORTRAN I/O subpro- 
grams are used to execute the CALL 
DUMP, CALL PDUMP; ALL EXIT, STOP and 
PAUSE statements. Note: There are 
several service subprograms (STOP, 
PAUSE, CALL DUMP, CALL PDUMP, CALL 
EXIT) in the FORTRAN I/O group which do 
not, strictly speaking, perform I/0. 
These subprograms, however, were 
included in the FORTRAN I/0 group 
because they use the FORTRAN data con- 
version routines. These subprograms are 
described under “Service Subprograms"” 


in FORTRAN IV Library Subprograms. 


e Mathematical Subprograms. These sub- 
programs are used for the more compli- 
cated mathematical procedures. They 
are used to perform the explicitly 
referenced functions (for example, the 
Sine function in X=SIN(Y) as well as to 
do the more involved computations for 
Mathematical statements which do not 
explicitly reference a function (for 
example, the exponentiation in the 
Statement X=Y**#I). See FORTRAN IV 
Library Subprograms for information on 
these subprograms. 


FOR- 


e The Service Subprograms that handle 
exceptions, pseudo-sense lights, over- 
flows, underflows, and divide checks. 
For information on these, see FORTRAN 


IV_ Library Subprograms. 


OBJECT PROGRAM DOCUMENTATION 


In accordance with user-specified or 
defaulted options, the compiler produces 
the following documentation: 


e A listing of the source program. 


e An object program storage map giving 
the storage layout of the object 
program. 


e A list of source program symbols and 
their storage equipments. 


e A cross-reference listing relating sym- 
bols and statement numbers to the 
source line numbers of the statements 
in which they were referenced or 
defined. 


e A listing of the object module in a 
representation very nearly in a form 


that might have been produced by the 
assembler. 


Phase 5 of the compiler either places this 
information in the list data set, which is 
stowed by LPC, or writes it on SYSOUT. 


COMPILER INTERFACES 


All interface with LPC and other exter- 
nal routines is in the Compiler Executive 
routine (Exec). 


INTERFACE WITH LPC 


The Compiler Executive routine may be 
called by LPC at either of two points and 
may itself call LPC at either of two points 
(see Figure 1). 


The two compiler entries are called INI- 
TIAL and CONTINUE. LPC calls the INITIAL 
entry to pass the user options to the com- 
piler and to initiate the first stage of 
the compilation (Phases 1 and 2). LPC 
calls CONTINUE to complete the compilation 
after the first stage is finished. The 
compiler return from CONTINUE informs LPC 
of the size of the OPM's elements, so that 
LPC can dispose of them. 


The compiler calls LPc at either of two 
places during the first stage (before the 
compiler returns to LPC from the INITIAL 
call). The first, GETLINE, is used to 
obtain a source line. The second, PUTDIAG, 
is used to pass a source error diagnostic 
message to LPC. PUTDIAG may also be used 
after the first stage. 


INTERFACE WITH VIRTUAL STORAGE ALLOCATION 


The compiler obtains virtual storage for 
the symbol table and other interphase files 
via GETMAIN; to release the storage, it 
uses FREEMAIN. (See Appendix A for a 
description of the interphase files, 
including the symbol table.) 


INTERFACE WITH DATA MANAGEMENT 


The compiler maintains the list data set 
by means of the virtual access method 
(VAM). The compiler issues OPEN, SETL, 
PUT, and CLOSE macro instructions to pro- 
duce this data set. 


COMPILER/SERVICE ROUTINES INTERFACE 


The compiler “time-stamps”™ (includes the 
relative calendar time in) each object pro- 
gram module (OPM) control section that it 
produces. It also includes the date and 
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time as identification on each sheet of 
listing that it produces. To do this, the 
compiler calls two service routines: 
REDTIM and EBCDTIME. REDTIM returns the 
time (in milliseconds elapsed since March 
1, 1900), which is used to time-stamp the 
control sections and as input to EBCDTIME, 
which edits it into the EBCDIC representa- 
tion of time of day for inclusion in the 
listing. 


ORGANIZATION OF THE COMPILER 


The compiler has six major components: 
a multifunction compiler executive and five 
compiler phases. The major functions of 
each component are summarized here; later 
sections describe each component in detail. 


COMPILER EXECUTIVE ROUTINE 


Compiler Executive (Exec) has six 
functions: 


1. Interface with the compiler's 
environment. 


2. Prepare the source statements for pro- 
cessing by Phase 1. 


3. Control and order the operation of the 
phases (see Figure 2). 


4. Prepare edited lines for output. 


FORTRAN IV Compiler External References 


5. Provide compiler diagnostic 
information. 


6. Provide miscellaneous services. 


During a compilation, various tables and 
lists are constructed to contain the 
results of the operation of each phase and 
to serve as input to the next phase (see 
Figure 3). 


PHASE 1 


Phase 1 performs the source program syn- 
tactic analysis, detection and diagnosis of 
errors, and translation of the source pro- 
gram into a multitabular representation. 
Each identifier or constant is given an 
entry in the symbol table (format is shown 
in Appendix A). Initial values from DATA 
and type statements, dimension information 
for arrays, NAMELIST information, and 
alphameric constants are stored in the pre- 
set data table (Appendix A). Information 
concerning references to, and definitions 
of, symbols and statement numbers is stored 
in the cross reference table. Information 
collected from COMMON and EQUIVALENCE 
statements is stored in the storage speci- 
fication list. 


The most significant processing, from 
the point of view of later optimization and 
code generation, concerns the treatment of 
executable statements, statement numbers, 
and arithmetic expressions. 
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Figure 2. Compiler Component Organization 


Each executable statement and statement 
number is placed in the program representa- 
tion file (PRF) which, when scanned in the 
order it was formed, is a skeletal outline- 
representation of the source program. in 
addition to the fields that distinguish the 
items from each other, the PRF entries con- 
tain pointers to the appropriate expression 
representation file (CERF) entries (see 
below), to symbol table entries for 
variables, constants, and statement num- 
bers, and to other PRF entries as appropri- 
ate to the individual type of entry. 
Detailed formats of the PRF and ERF are in 
Appendix A. 


Each expression is placed in the expres- 
sion representation file (ERF) in tabular 
form. The ERF form of the expression is a 
parenthesis-free notation in which, reading 
from left to right, each operand occurs in 
the order in which it occurred in the orig- 
inal expression; each operation follows its 
associated operand pair. The form is 


referred to as “right-hand Polish,* or 
Simply “Polish.” See “CEKAI -- Expression 
Processor (EXPR)," in Section 3. 


Each of the operator items includes 
information about its type and a code to 
indicate which operation is represented. 
Each variable or constant item includes 
information about its type and a symbol 
table pointer. This pointer is the means 
of reaching the associated symbol table 
entry and serves to associate the item with 
other items representing the same variable 
or constant while distinguishing it from 
other items. 


The detailed description of Phase i is 
in Section 3. 


PHASE 2 
Phase 2 has five functions: 


i. Make storage assignments in the OPM to 
all variables that are not formal 
arguments of a subprogram. 


2. Detect and diagnose illegal flow in DO 
nests. 


3. Indicate that the DO-loop index vari- 
able requires materialization (must be 
maintained in its storage cell) ina 
loop that contains an exit. 


4. Detect and diagnose references to 
undefined statement numbers (labels). 


5. Determine definition points (points at 
which a value may be changed) of COM- 
MON variables and subprogram 
arguments. 


COMMON variables are assigned storage in 
the order dictated by their appearance in 
the source program, in their appropriate 
COMMON blocks, and are given as much space 
as indicated by their individual DIMENSION/ 
type combinations. 


Non-COMMON variables that do not appear 
in EQUIVALENCE statements are assigned 
storage such that all scalars appear first, 
followed by all one- then two-dimensional 
arrays, etc. For any given dimensionality, 
variables of the same type appear together; 
those requiring less storage precede those 
requiring more. In this way, a maximum of 
address-constant sharing is obtained in the 
object program. 


The relative relationships of storage 
assignments of variables appearing in EQUI- 
VALENCE statements is determined, and these 
variables are assigned storage within the 
appropriate COMMON block, or at the end of 
the non-COMMON group, as required. 
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Variables that do not appear in COMMON 
statements but appear in EQUIVALENCE state- 
ments in conjunction with COMMON variables 
are flagged as appearing in COMMON. 


After a storage assignment is made, its 
assignment (SLOC) within storage class 
(STCL) is recorded in the symbol table. 
Non-COMMON variables are assigned storage 
class 6, blank COMMON storage class 9, and 
labeled COMMON storage class 10 to as high 
as 127 in the order of first appearance of 
the corresponding labeled blocks in the 
source program. 


In the OPM storage, classes 3 through 8 
will be accumulated by Phase 5 and become 
the module's PSECT in the object program. 
These classes include alphameric constants, 
address constants, NAMELISTs and parameter 
lists, non-COMMON variables, global (unre- 
leasable) temporary storage, and local ten- 
porary storage, in that order. The COMMON 
blocks (storage classes greater than 8) 
become individual control sections in the 
OPM where the block name becomes the con- — 
trol section name. Such control sections 
are combined with control sections of like 
name from other modules, before execution 
(during linkage editing or loading). 


Information concerning the remaining 
functions of Phase 2 is in Section 4. 


PHASE 3 


Phase 3 performs the global optimiza- 
tions to be done in the code generated by 
Phase 4 and establishes address coverage 
for all quantities referred to from 
storage. 


Phase 3 determines which arithmetic 
expressions can be computed only once and 
then saved for later uses. It also deter- 
mines the range of statements over which 
expressions are not redefined by the 
definition of one or more of their com- 
ponents. If the occurrence of an expres- 
sion in that range is contained in one or 
more DO Loops which are also entirely con- 
tained in that range, Phase 3 determines 
the outermost such loop outside which such 
an expression may be computed, and moves 
the expression to the front of that DO 
loop. Only the evaluation process is 
removed from the loop; any statement number 
and/or store process is retained in its 
original position. The moved expression is 
linked to a place reserved for that purpose 
in the program-representation-file entries 
corresponding to the beginnings of DO 
loops. 


In the statements 


1 A= Btc 
2 ¥Y = AtB 
3 A= A*2 
4 Z = AtB 
5 X = Btc 


the occurrences of expression B+C in state- 
ments 1 and 5 are determined to be common 
because neither B nor C has an intervening 
definition. The expression identification 
corresponding to the plus operator will be 
changed from “operator” to “common expres- 
sion" (CSX). A CSX has the properties of 
the original operator (e.g., here the plus 
operator code is retained), with the addi- 
tional property that it represents a 
“named"™ expression. The CSX item contains 
a field reserved for the expression name 
(this name is actually a monotonically 
increased number), that is identical only |. 
for identical expressions. In statements 2 
and 4 above, the expression A+B is nota 
CSX because of the intervening definition 
of A in statement number 3. Both plus 
operators retain their "operator" identity; 
neither becomes a “named” expression. 


Consider the statements 


pO iI = 1, 10 


A = Btec 
Y = EtF 
1 F=A 


Because there are definitions of neither 
B nor C within the DO loop, the expression 
B+C is given a "name", and the named ex- 
pression is linked to the beginning of the 
pO statement, so that Phase 4 generates the 
expression once, outside the loop. The 
occurrence of the expression inside the 
loop is replaced by a “residue item" (see 
ERF description in Appendix A) that has the 
same "name" as the removed expression. 
Note that expression E+F is neither named 
nor removed because of the definition of F 
in statement i. 


Phase 3 creates two new operators, both 
arising only from subscripts. The first is 
called a base/index split operator or "? 
operator"; its right operand is a residue 
(computed outside a DO loop), and its left 
operand is an expression that is local to 
the DO loop. Phase 4 places one quantity 
in a base register and the other in an 
index register when generating a storage 
reference to the subscripted quantity. 


The second operator is called the recur- 
sive operator or "! operator”; its right 
operand is the initial value of a subscript 
(induction variable dependent) constituent 
that is to be computed recursively over a 
DO loop, and its left operand is the "step 


expression", a quantity to be added to the 
recursive expression after each pass 
through the loop. -(The induction variable 
is the variable referenced in the DO state- 
ment of the loop. In the DO statement 
shown above, I is the induction variable.) 


Phase 3 merges the ERF and PRF with some 
modification to form the PF (see Appendix 
A). This file is the primary output of 
Phase 3. 


Detailed information about the functions 
of Phase 3 is in Section 5. 


PHASE 4 


Phase 4 performs the code generation 
function. Its input consists primarily of 
the PF and symbol table, and its output is 
the code file which represents, completed 
machine instructions and additional editing 
information. ; 

Phase 4 performs a scan of the PF. Pro- 
cessing is triggered by the various PF 
items and by the expressions they may 
reference. A set of tables is maintained 
that reflects the contents of the various 
general and floating registers at any time. 
When the generation of an expression is 
required, the register tables are searched, 
and if any constituent operand of the ex- 
pression is in a register, it is generally 
used from that register, rather than from 
storage. Partial results are stored in 
temporary storage only when a register is 
needed for some other purpose and there is 
no better choice of register than the one 
containing the partial result, or when the 
partial result is a CSX that has later uses 
and the operation about to be performed 
will change the value of the register con- 
taining the common expression. 


Phase 4 is a collection of PF entry pro- 
cessing routines, arithmetic generators 


tailored to the various operators and ex- 
pression types; and service routines to 
maintain register storage, partial result 
Storage, and CSX storage, to select and 
assign registers, to determine when 
operands are no longer needed, to assign 
and release temporary storage, etc. The 
detailed description of Phase 4 (in Section 
6) indicates the relationships among these 
routines and provides a much more compre- 
hensive description of the operation of 
this phase. 


PHASE 5 


Phase 5 collects the information from 
the various compiler-generated storage 
classes and forms a code/numeric-constant- 
sharable CSECT, a PSECT, and as many COMMON 
CSECTs as there are declared COMMON blocks. 
This information, and information (obtained 
from the Symbol Table) making up the 
optional ISD, constitutes the object pro- 
gram module. 


Optionally, Phase 5 also produces an 
assembler-like listing of the object pro- 
gram code obtained from the Code File, a 
storage map, and a cross reference listing 
indicating the various source-program iden- 
tifiers and the lines in which they were 
referenced or defined. The user's selec- 
tion of these options is passed from LPC to 
the Compiler Executive and thence through 
the INTERCOM table to Phase 5. 


Section 7 contains the detailed descrip- 
tion of Phase 5. 


Note: Routine descriptions in Sections 2 
through 7 occasionally refer to registers 
as "Pi", “P2", “P3", etc. Such register 
notations are taken directly from the list- 
ing, where they appear in EQU instructions 
and other instructions. 
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SECTION 2: EXECUTIVE 


INTRODUCTION 


The compiler executive (Exec) contains 
all routines in the compiler that either 
provide an interface between the compiler 
and the environment in which it resides or 
provide a service needed by more than one 
compiler phase (Chart AA). Functions per- 
formed by the Exec routines fall logically 
into the following categories: 


1. Service external interfaces. 
2. Prepare source statements. 


3. Control the compiler phases and inter- 
phase files. 


4. Process compiler edit lines. 


5. Provide compiler diagnostic informa- 
tion. 


6. Provide miscellaneous services. 


This discussion of the Exec is divided 
into seven sections: an initial section 
entitled “General Information,“ followed by 
sections dealing individually with the 
above six categories. 


GENERAL INFORMATION 
This section contains general informa- 
tion of value to understanding the computer 

executive. Topics discussed are: 
1. Macro instruction usage. 
2. Linkage conventions. 
3. Register notation and conventions. 
4. Storage map. 
5. Brief routine description. 


6. Use of the phase controller PSECT by 
other Exec routines. 


MACRO INSTRUCTION USAGE 


The Exec routines, like all compiler 
routines, make heavy use of macro instruc- 
tions: both “user" macro instructions 
(such as CALL, SAVE, RETURN -- those 
described in Assembler User Macro Instruc- 
tions) and “system" macro instructions 
(those used only by the exec). User macro 
instructions are not discussed here. The 


term macro instructions as used in this 
discussion means “system macro 
instruction." 


Appendix C lists a brief summary of all 
exec macro instructions; the following 
paragraphs group them by function. 


1. Macro instructions concerned with the 
compiler diagnostics features: CEKTO, 
CEKTG, CEKV3 and CEKV5. 


2. Macro instructions written to provide 
module PSECTs and DSECTs: CEKU7, 
CEKT8, and CEKT9. 


3. The CEKVU macro instruction contains 
all VAM macros. 


4. All uses of the GETMAIN and FREEMAIN 
macro instructions are contained in 
the macro instructions CEKVC and 
CEKV9, respectively. 


5. The macro instruction CEKVA issues the 
system macro instructions EBCDTIME and 
REDTIM. 


6. The CEKU9 macro instruction simplifies 
the processing associated with output 
of a message describing a source 
statement error detected by any Exec 
modules. 


7. $$j(The macro instructions CEKTX, CEKV7, 
and CEKV8 define all V-R con pairs and 
issue the CSECT and PSECT lines, for 
all Exec modules. 


Use of all other Exec macro instructions 
is obvious upon inspection of Appendix C 
and the assembly listings. 


LINKAGE CONVENTIONS 


All linkages by the compiler are Type I. 
(See Appendix B, “TSS/360 Linkage Conven- 
tions"). The linking mechanism is either 
by means of the CALL, SAVE, and RETURN 
macro instructions or by the INVOKE, STORE, 
and RESUME macro instructions; there are no 
hand-coded linkages. All exec routines, 
linked to by other exec or compiler rou- 
tines through a CALL macro instruction, set 
return codes in general register 15 before 
returning. These codes are: 


Code Description 
0 Normal return. 

4 If a phase suspects a system error, 
it returns to the phase controller 
with a code of 4. No phase current- 
ly issues this return code. 


8 The “Compiler cannot continue -- 
Abort” code. Table overflow is the 
usual cause. The phase will return 
to the phase controller with a 
return code of 8, causing the phase 
controller to make a “FORTRAN cannot 
continue" return to LPC. 


16 A compiler restart is to be executed 
(see comment below). Programs 
called by the phase controller are 
to return with this code if, upon 
calling an exec subroutine, a code 
of 16 was returned by the 
subroutine. 


A return code of 12 is treated identi- 
cally to a code of 8. Return code of 16 is 
expected only during Phase 1 processing; in 
all other places it is treated as a code of 
8. A return code from a compiler module 
greater than 16 is never expected, is not 
tested for, and will produce unpredictable 
results. 


REGISTER NOTATION AND CONVENTIONS 


The TSS/360 register notation standards 
(see also Appendix B) describe a division 
of registers into parameter registers (P1 
through P6), volatile registers (V1 and 
V2), nonvolatile registers (N1 through N5), 
and linkage registers (L1 through L3). 

This standard is followed in all Exec 
modules, with the minor exception that 
absolute register notation is used where it 
should be made clear that other registers 
may not be used. Examples are registers 0 
and 1 in the ED instruction and registers 
loaded by the system macro instructions and 
macro processors. 


Use of all registers is summarized in 
the prologue contained at the beginning of 
each assembly listing. 


The CEKSZ macro instruction issues all 
EQUs for general and floating registers. 


STORAGE MAP 


Table 1 shows the approximate size of 
each control section in the Exec and the 
GETMAIN areas used for interphase files. 
The manner in which the compiler modules 
are link-edited will, of course, dictate 
the order in which modules are loaded and 
the storage required. 


BRIEF ROUTINE DESCRIPTION 


The routines in the Executive are 
described briefly below. The description 
includes the documentation module name 
(five characters, in parentheses, with the 
letters CEKT as the first four characters), 
preceded by the name generally used 
throughout the Executive documentation. 

The type of linkage to the routine is 
described, and a note is given describing 
conditions if the routine is an assembly 
module (is assembled separately from all 
other modules), as well as a documentation 
module. (A documentation module may or may 
not represent a separate assembly.) 


1. Phase Controller -- PHC (CEKTA, docu- 
mentation and assembly module). 


The Phase Controller is a Type I link- 
age subroutine and is the interface 
between the (LPC) and the five compil- 
er phases. All LPC calls enter PHC, 
and the phases may be calied only by 
PHC. PHC initializes the work area 
and communication module as required 
for each phase, furnishing addresses 
of tables, pointers in these tables, 
etc. PHC prepares all parameters for 
return from the LPC to FORTRAN calls. 


PHC does not call the LPC entries GET- 
LINE or PUTDIAG, nor does it operate 
on the list data set in any way. 

These operations are all performed by 
the master input/output module (see 
below). 


2. Get Next Source Statement -- GNSS 
(CEKTC, documentation and assembly 
module). 


This Type I linkage subroutine obtains 
complete source statements for Phase 1 
of the compiler. The source state- 
ments are composed of lines furnished 
GNSS by the LPC GETLINE entry. Facil- 
ity is included for conversational 
modification of statements already 
received. GNSS uses restricted link- 
ages internally. 


3. Process Terminal Modification -- MOD 
(CEKTD, documentation and assembly 
module). 


MOD is a Type I linkage subroutine 
whose purpose is to assist GNSS in the 
formation of source statements when 
conversational corrections have been 
made to the source statement. It 
accomplishes this by analyzing the 
relation between the line number of a 
line to be corrected (or inserted) and 
the line numbers of statements already 
received by the compiler. 
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Table 1. Executive Storage Map 





























ee ee ee a ee ee ee re | 
| Module | Code | PSECT | 
| Phase Controller (CERTA), | (16,000 bytes) | Save Area : 
| (PSECT for CEKTA is the | | (76 bytes) | 
| Work Area and Commuinica- | | | 
I tion Module, CEKTB) { | | 
ee 
{ | | Int er-Exec | 
}------—--_----—----—_- ------—----- -—- ——- + ——_------ Communication | 
| | | and work area and | 
| | { Intercom (13,000 bytes) | 
t------—------------------—----———-- -+-- --_—— ———------—- - -- ———--—-- +--+ 
| | | Symbol Table* 
| . | | (20 pages -- 81,920 bytes) | 
|---------------------------------f- —--- ------- + --- --------- -- ---- 1 
| | | Work Area A* | 
| | | (60 pages) | 
|------—---------------------------- 4--—_---------- -------——---—-------------| 
| | | Work Area B* | 
{ | j (60 pages) | 
fa nd 
j | | Work Area C¥,**# | 
| i | (32 pages) | 
a aN aie i ai a a as = J 
| Get-Next-Source Statement | (1600 bytes) | Save Area, misc. | 
| (CEKTC) | | (128 bytes) | 
Se Se ee Se ee Se ge ee 4 
| Process Terminal Modifica- | (2048 bytes) | Save Area, misc. | 
| tions (CEKTD) | | (128 bytes) | 
--——_--—---—--—-——- |} - +} I 
j Receive Diagnostic Message | (300 bytes) | Save Area, misc. | 
| (CEKTE) | | (128 bytes) | 
—---------- ~~ - =} ~~ j 
{ Constant Filers (CEKTF) | (4096 bytes) | Save Area, misc. | 
| | { (128 bytes) { 
-----—~--—------— ------{—---—---—----—--- ---——------—--—-—- — 
| Master Input/Output (CEKTH) | (4096 bytes) | (600 bytes) i 
}------—-------——-------—----------1}------------------1------------------- = — 
| *# These areas are obtained using GETMAIN. | 
| **# See Table 4 for the allocation of Work Area C for the Output Module. | 
Res a a a re 


4. Receive Diagnostic Message -- RDM 
(CEKTE, documentation and assembly 
module). 


Any module in the compiler (including 
Exec modules) that adds a diagnostic 
message to the user’s output does so 
through RDM. The message may go to 
the list data set, the conversational 
console, or both. The LPC entry PUT- 
DIAG is used for console messages. 


5. Constant Filers -- CONFIL (CEKTF, 
documentation and assembly module). 


Several of the compiler phases must 
add information concerning numeric, 
address, and label constants to the 
symbol table. The filing of these 
constants is performed for the phases 
by CONFIL, through a Type I linkage. 
CONFIL also includes an entry which 
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creates numbers used to mark points in 
the code for the phases and then files 
these numbers as label constants. 


Master Input/Output -- MIO (CEKTH, 
documentation and assembly module). 


All input/output operations are con- 
trolled by MIO. These operations 
include: 


a. Calling GETLINE for source lines 


b. Calling PUTDIAG for diagnostic 
message output to the conversa- 
tional console 


c. Opening, closing, and adding 
source and diagnostic messages to 
the list data set 


10. 


11. 


12. 


MIO contains six Type I linkage 
entries and uses restricted linkages 
internally. 


Analyze Console Source Line -- ANALYZ 
(CEKTI, documentation module). 


This restricted linkage subroutine is 
invoked by GNSS to determine where the 
statement number and first text 
character are in a console line, and 
how many text characters are included 
in the line. ANALYZ is assembled into 
GNSS. 


Inspect a Console Character -~- INSCON 
(CEKTJ, documentation module). 


This restricted linkage subroutine is 
invoked by ANALYZ to determine if a 
console character is a tab, numeric, 
biank, or other character. INSCON is 
assembled into GNSS. 


Move a Line to the List Data Set -- 
LDMOVE (CEKTK, documentation module). 


LDMOVE is a restricted linkage subrou- 
tine, invoked by MIO to move a line 
from a buffer to the list data set. 
LDMOVE counts lines in the ‘current 
page and, when required, restores the 
page and adds a page heading. LDMOVE 
is assembled into MIO. 


Build the List Data Set Buffer -- 
BUILD (CEKTL, documentation module). 


BUILD is a restricted linkage subrou- 
tine, invoked by MIO to move a line to 
either a list data set buffer or the 
list data set. The buffer will be 
emptied when its capacity is exceeded, 
or when information contained will not 
be replaced due to conversational 
corrections. BUILD is assembled into 
MIO. 


Flush the List Data Set Buffer -- 
FLUSH (CEKTM, documentation module). 


This restricted linkage subroutine is 
invoked by MIO, to move all lines ina 
list data set buffer to the list data 
set. FLUSH is also invoked by GNSS, 
through the BFLUSH entry to MIO. 

FLUSH is assembled into MIO. 


Compiler Dump -- COMDUMP (CEKTQ, docu- 
mentation and assembly module). 


This Type I linkage module is called 
by the Phase Controller when a file is 
to be dumped in hexadecimal. Such 
dumps are produced only when the com- 
piler is in the diagnostic mode. 


13. Dump Line Preparation and Output -- 
LINDUMP (CEKTS, documentation and 
assembly module). 


LINDUMP is called in diagnostic-mode 
processing only, using a Type I link- 
age. LINDUMP prepares one line of 
information and adds it to the list 
data set. 


USE OF THE PHASE CONTROLLER PSECT (EXCOM) 
BY OTHER EXEC ROUTINES 


The first two pages of the Phase Con- 
troller PSECT contain information required 
by other routines in the Exec. A defini- 
tion of this PSECT is supplied to all Exec 
routines by including a DSECT for the Phase 
Controller PSECT. Cover for this DSECT is 
obtained by loading the address of the 
Phase Controller PSECT from a word in 
intercom (Exec modules are always passed 
the location of intercom when called). The 
term ‘excom’ (Exec communication region) is 
used by Exec routines to refer to the Phase 
Controller's PSECT. 


SERVICE EXTERNAL INTERFACE 


4 es 


The compiler's external interfaces are: 


1. Entrances from Language Processor Con- 
trol (LPC) 


2. Calls on LPC to get a source line or 
produce a diagnostic line 


3. Macro instructions to get and free 
main storage 


4. Macro instructions to operate on a VAM 
data set 


5. Macro instructions to obtain the time 
at which the compilation is beginning 


Figure 4 shows the above interfaces. 
For each interface, the Exec routine 
involved is identified. Note that all 
calls on LPC are centralized in the Master 
Input/Output (MIO) routine as are all calls 
on VAM (except one, the call by LINDUMP, 
which is issued only if the compiler is in 
the diagnostic mode, as discussed in the 
section “Compiler Diagnostic Information"). 


Routines concerned with external inter- 
faces are: 


1. Phase Controller (PHC,CEKTA). 
2. Master Input/Output (MIO, CEKTH). 


3. Dump Line Preparation and Output 
(LINDUMP, CEKTS). 
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Figure 4. Compiler Interfaces 


Details concerning activities of the 
Executive routines that use and prepare 
information passed across the interfaces 
are given under “Routine Descriptions," 
this section. 


in 


SOURCE STATEMENT PREPARATION 


The purpose of the routines described in 
this section is to prepare complete FORTRAN 
source statements for processing by Phase 1 
of the compiler. This preparation is 
accomplished by obtaining lines through the 
services of the LPC entry GETLINE, combin- 
ing these lines as appropriate (continua- 
tion lines may exist), and informing Phase 
1 of the location of a complete source 
statement, and the statement label (if 
any). If the compiler is in conversational 
mode, the terminal user may request that 
changes be made to a line (or lines) pre- 
viously sent to the compiler. In such an 
event, the Process Terminal Modifications 
routine (MOD) determines if the correction 
was such that the entire program must be 
recompiled, or if the preceding or current 
statement is to be ignored or modified and 
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compilation continued. Two routines par- 
ticipate in the preparation of source state 
ments: Get Next Source Statement (GNSS, 
CEKTC) and Process Terminal Modification 
Lines (MOD,CEKTD). These routines have no 
other functions. 


Figure 5 illustrates the general rela- 
tionship between the source-statement- 
preparation routines and other routines in 
the compiler. 


PHASE AND INTERPHASE FILE CONTROLLER: THE 
COMPILER WORK AREAS AND INTERCOM 


The Phase Controller (PHC,CEKTA) per- 
forms the functions of calling the five 
compiler phases. Associated with each call 
on a phase are a number of miscellaneous 
operations concerning the files used by the 
phases as their medium of information 
exchange; these operations are also per- 
formed by PHC. The phase control operation 
is a simple one and consists principally of 
calling each phase in its turn, checking 
the return code to see if the following 
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phase should be called, and returning pa- 
rameters to LPC following the calls on 
Phases 2 and 5. 


Figure 6 summarizes the order and condi- 


tions of calls on the phases and shows the 
GETMAIN and FREEMAIN activities. 
6 and in other figures below the abprevia- 


tions for interphase files are used. These 

abbreviations are: 

CF Code file 

CRL Cross reference list 

EF(or ERF) Expression (representation) 
file 

ENL External name list 


In Figure 


ISD Internal symbol dictionary 


OPM Output module (text) 

PF Program file 

PMD Program module dictionary 
PRF Program representation file 
SPL Storage specification list 


Work areas See below 

Note that all file descriptions given 
below are for the purpose of summarizing 
the obtaining, use, and freeing of storage. 
For detailed descriptions of the contents 
of all files, see Appendix A. 


The term "work area" is used to refer to 
an area in virtual storage that is logical- 
ly reused; that is, one phase uses the 
area, and PHC then makes an area of the 
same Size available to the next phase, etc. 
Tables in this work area are cleared out 
when they are no longer needed. The number 
of pages obtained for each work area is 
determined by a constant assembled into the 
PHC PSECT; this number was also given in 
the storage map description. 


Tables 2, 3, and 4 give miscellaneous 
information concerning the three work 
areas. Figure 7 shows the symbol table 
storage layout. 


Probably the most important interphase 
file in the compiler is the file referred 
to as intercom. A detailed description of 
the contents of intercom is given in Appen- 
dix A; general information on use of this 
area follows. The intercom area contains 
512 bytes. All information required by the 
Executive and any phase, or to be passed 
between phases (excluding large lists, 
files, etc.), is passed by means of the 
intercom area. Intercom is not obtained by 
a GETMAIN, but is assembled into the phase 
controller PSECT. The sequence of intercom 
use is as follows: 


1. The phase controller initializes 
intercom as required before each call 
on a phase and makes the location of 
intercom known to the phase via the 
calling sequence. 


2. The phases move the 512 bytes to 
intercom from the phase controller to 
an area within the phase. The phases 
modify this area during their opera- 
tion. If a phase calls an executive 
routine, it furnishes the executive 
routine with the location (in the 
phase) of intercom, so that intercom 
may be updated by the executive rou- 
tine called. 


3. Before returning to the phase con- 
troller, the phase moves the up-to- 
date intercom from the area within the 
phase back to its original area in the 
phase controller. : 
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Figure 6. Summary of Phase and Interphase File Control Activities 
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Table 2. Work Area A Storage Layout 


' 


Name 


men 7 
Intercom )4 
Y 


















CF 






( Base, Top 
and Upper 

Limit in 

Intercom) 









1. TBALO is the CF Base ond the initial CF Top. See Intercom TECFB, TECFT. 
2. TBAHI is the CF Upper Limit. See intercom TECFU. 


3. Direction of increasing addresses is from the top to the bottom of the table. 


4. The EF and PRF bases are identical, and are located approximately midway 
between TBALO and TBAHI. See Intercom TEEFB, TEPRFT, TEEFT, TEPRFT. 


The address of the first word filed in the PRF is in TEWAAH in Intercom. 
The EF is also referred to as the ERF. 


Table 3. 


| Nome | Phase 1 | Phase 2__| Phase 3_| Phase 4 | Phase 5 _ | 


TBBLO | Storage Storage 
Specification | Specification 
List (Base, List 
Top and 
Limit in 
TBBM! Intercom) 
TBBM2 
TBBM? 


NOTES: 

1. TBBLO is the SPL and PMD Base. It is also the initial SPL and PMD Top. 
See Intercom TESPLB, TEPMDB, TESPLT. 

2. TBBHI is the SPL and ISD Upper Limit. See Intercom TESPLU. 

3. Computed by PHC. 

4. If required, PHC will GETMAIN rather than use Work Area B. 

5. Must Start on a Page Boundary. 

6 

7 
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Work Area B Storage Layout 


External 
Name List 
(Base and Top 
in Intercom) 


PMD 
(Base and 
Top in 
Intercom) 


OPM 
(Base and 
Top in 
Intercom) 


ISD 
(Base and 
Top in 
Intercom) 





. Not needed if no ISD is requested by the problem programmer. 
- Direction of increasing addresses is from the top to the bottom of the table. 
- The allocation of Work Area B to the four Phase 5 Areas is: 
| PMD -~- 12 pages ENL -- 2 pages 
OPM -- 80 pages ISD -- 20 pages 
9. The PF top is initially set to TBBLO. The PF upper limit is TBBHI. 


Table 4. Work Area C Storage Layout 


Preset Data | Preset Data| Preset Data | Preset Data/Preset Data 
(Base and (Not Used)} ( Not Used) |( Not Used ) 
Top in 

Intercom ) 















tacio '5 

























TBCM 
2 Formal 

TBCM Argument 
Adcons 
(Base and 
Top in 3 
Intercom) 

TBCM? 





(Base and 
Top in 
Intercom) 







Cross- 
Reference 
List4” 6 . 







(Not Used) | (Not Used) | (Not Used) 
CRL CRL CRL CRL 
NOTES: 


1. TBCLO is the Preset Data Base and (initially) Top. See Intercom 
TEPSDB, TEPSDT. 
2. TBCHI is the CRL Base and (initially) Top. See Intercom TECRLB, TECRLT. 
3. The Formal Argument Adcon Base and Top are set by PHC prior to entering 
Phase 3. See intercom TEFAAB, TEFAAT. 
4. This area is not required if the cross-reference-list option is not chosen 
by the problem programmer . 
5. Direction of increasing addresses is from the top to the bottom of the table. 
6. Must start on a double-word boundary . 


| Symbolic Nome | escription 


Symbol Tables entries for the 49 


Intrinsic Functions (assembled in) 















Symbol Table Low -- first item 
filled will have the first word of 
its descriptive part put here 













Descriptive Part Entries, next avail- 
able word referenced with TEDES T! 


ID, FLAGS, ETC 


SLOC, STCL 


VALUE 
LINK, DPP 


Name Part entries, last used word 
referenced with TENAMT2 









Descriptive 
Part 
Filing 














Symbol Table High -- first item 
filed will have the first word of its 
name part put here 





1 The address of the first "ID, FLAGS, ETC" word filed is in TEDESB in Intercom. 
2 The address of the first "LINK/DPP" word filed is in TENAMB in Intercom. 


Figure 7. Symbol Table Storage Layout 
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COMPILER EDIT LINES 


The compiler produces two types of out- 
put: edited lines, to be transmitted to 
the terminal, list data set, or both; and 
the object module, constituting the com- 
piled program ready for loading and execu- 
tion. Output of the first type is prepared 
in the following places in the compiler: 
RDM (diagnostic messages from phases), PHC 
(heading lines and warning diagnostics 
associated with diagnostic mode process- 
ing), GNSS (SOURCE Fines and associated 
diagnostic messages), CONFIL (file overflow 
diagnostics), and OLR (Phase 5 edit lines). 
Figure 8, “Process Compiler Edit Line Func- 
tion" describes the path of compiler edit 
lines in more detail. Output of the second 
type is prepared completely by the compiler 
Phase 5 and is passed to LPC at the phase 
controller's return to the LPC continue 
call. Preparation of this output is 
described in Section 7 “Phase 5"; the man- 
ner of returning the information to LPC was 
described earlier in "Phase and Interphase 
File Controller.* 


The use of the MIO buffers deserves spe- 
cial mention. If the compilation is con- 
versational, the phase controller (using 
GETMAIN) obtains two pages for the MIO 
buffers. These buffers will contain the 
source lines in the source statement cur- 
rently being formed by GNSS and in the 
statement previously passed to Phase 1, but 
not yet committed to compilation. When a 
statement is committed to compilation, the 
associated source lines are added to the 
user's listing (if any). Following return 
from Phase 1 to the phase controller, these 
two pages are released. 


COMPILER DIAGNOSTIC INFORMATION 


The compiler contains built-in facili- 
ties for diagnosing compilation problems. 
These facilities consist principally of the 
ability to request hexadecimal dumps of 
interphase files and phase PSECTs following 
return from each phase. These dumps may 
not be directed to the terminal; they are 
issued to the list data set by use of a PUT 
macro. If the user has requested no edit 
options, there will be no list data set. 

In this case the diagnostic mode may not be 
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entered. If the user attempts to do so the 
message “DIAGNOSTIC MODE NOT ALLOWED AS NO 
EDIT OPTIONS SELECTED" will be printed at 
the terminal. 


It is also possible to alter the size of 
the main storage obtained prior to compila- 
tion, in order to measure the effect of 
large, unused pages of virtual storage, and 
to exercise the file-overflow tests of the 
compiler. These features are all contained 
within macros in the Exec routines and, 
thus, may be removed from the compiler by 
modification of these macro instructions. 
(See the General Information section for a 
description of all macros.) The diagnostic 
features do not affect the reenterable 
characteristic of the compiler. It is 
nearly impossible for a user to inadver- 
tently request diagnostic output from the 
compiler, as information not normally 
available to the user must be known to pro- 
duce such output. If the diagnostic mode 
is entered, the warning message “COMPILER 
IS IN THE DIAGNOSTIC MODE" will be. produced 
at the terminal (if in conversation) and on 
the list data set. Figure 9 describes the 
diagnostic features. 


The procedure for requesting diagnostic 
information is: 


1. Load the Phase Controller (PHC), and a 
new PSECT for PHC, with the PCS 
statement: 

LOAD CEKTAR 

2. Set the PHC PSECT byte TEDIAG to ‘Y’ 
(diagnostic mode allowed) with the PCS 
statement: 

1 SET CERTAR. (X*11cC5') = ‘'y’° 


3. The first source line supplied to the 
compiler must be: 
Col. Col. col. 
1 - 6 7 17 - end 
(blank) DIAGNOSTIC Anything 


The two lines following the DIAGNOSTIC 
line contain dump and other request 
information. The content of the second 
and third lines is described below. 
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Diagnostic Line 2: 


Ce a re pe Ey gd re ee ee es a ae ee ee ee 
jColumn| Name + | - Description 
}------4------—----}------------+-+---+-~+--—- +--+ +++ +--+ e+ +--+. 
|2 {TDPHAZ (1)|If 0, compilation will terminate prior to calling Phase 1.2 
| 
{2 |TDPHAZ (2) |If 0, compilation will terminate prior to calling Phase 2.2 
[ | | 
[3 |TDPHAZ (3) |If O, compilation will terminate prior to calling Phase 3.2 
| 
{4 |TDPHAZ (4) {If 0, compilation will terminate prior to calling Phase 4.2 
| [ I 
[5 |TDPHAZ (5) [If 0, compilation will terminate prior to calling Phase 5.2 
| | 
{10 | TDLOG {If Y, a message will be written when each phase is called, and when 
| | {return is made from each phase. 
| i 
{31-40 |TDBUG1 jRequests file edits upon return from a Phase, as follows (the numbers 
| | {1 through 10 correspond to columns 31-40 for Phase i, 41-50 for Phase) 
| | {2, etc). 
{ | | | 
| | {No. Description | 
| { {2 If Y, edit Intercom; edit the EF and PRF, after Phases 1 
| | | through 3; the CF after Phase 4 and 5. | 
{ | | , | 
| | j2 If Y, edit the Symbol Table. | 
i i i | 
{ | {3 If Y, edit Storage Class Table. | 
{ i | | 
| | {4 If Y, edit the phase’s PSECT and the contents of the internal | 
| | | file used by the phase (Phase 5 does not use this file). | 
| | | If blank or O produce no PSECT edit. If X, edit the | 
| | | (3 pages) PHC PSECT. | 
i | { | 
| | {5 Edit the SPL and PF in Phases 1 through 4, the PMD, OPM, ENL | 
| | | and ISD if in Phase 5. { 
| { | | 
| | {6 Edit the Preset Data, Formal Argument Adcons, and the Cross | 
| | | Reference List. | 
| | { | 
| | \7 If Y, do not give file edits for RC = 0 return from each phase | 
| | | (will only give edits if RC#0 or an unexpected interruption | 
| | { occurs). | 
| | i | 
| | {8-10 Not used. | 
| I | | 
| | | | 
{41-50 | {Same as 31-40, but inspected after return from Phase 2. { 
| i | 
{51-60 | jSame as 31-40, but inspected after return from Phase 3. { 
| | i | 
[61-70 | }Same as 31-40, but inspected after return from Phase 4. | 
i | l | 
{71-80 |Same as 31-40, but inspected after return from Phase 5. | 
}------1----—----—- Mc an i a ec i ns nk emcee a re nee eg ean mie ate 


j1. Label of field in PHC PSECT in which the value punch in the corresponding columns | 
| is stored. | 
{2. If the column is blank or any character other than 0 (zero), compilation will not | 
| be terminated. | 

4 
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Diagnostic Line 3: 


Allows the user to al- 


ter the number of lines to be obtained by 


PHC in its GETMAINS. 


The relation between 


columns in line 3 and the files for which 
main storage is obtained is given below. 
If the four columns associated with a file 
are blank, the number of pages obtained 
will be the number assembled into the PHC 


PSECT. 

(Soo oa os ea ee q 
| | PHC PSECT | 
{ Column| Name | File | 
[------—-}---------- }--~---------------- —-{ 
| 15-18 | TDAPAG | Pages in Work Area A | 
| | | | 
{ 19-22 | TDBPAG | Pages in Work Area B | 
| | | | 
| 23-26 | TDCPAG | Pages in Work Area C | 
| | | | 
| 27-30 | TDPPAG | Pages in PMD | 
| | | | 
{ 31-34 | TDOPAG | Pages in OPM | 
be | | { 
| 35-38 | TDEPAG | Pages in ENL | 
| oe | i 
| 39-42 | TDIPAG | Pages in ISD | 
| | | | 
{| 43-46 {| TDMIOP | Pages in M10 Buffers | 
| | 

| 47-50 | TDSYMP | Pages in Symbol Table| 
ae Se ey 


Note that, following the processing of 
the three diagnostic information lines, the 
source lines are read as in a normal 


compilation. 


Figure 10 summarizes the determination 
of diagnostic mode and the initialization 
Figure 11 sun- 
marizes the processing performed at each 


performed if in this mode. 


phase call. 


Figure 12 shows compiler 


action if in the diagnostic mode and an 
unexpected interruption occurs. 


MISCELLANEOUS 


The miscellaneous modules are those used 
-by any routine in the compiler that causes 
a diagnostic message to be added to the 
user's terminal and/or listing output, and 
files information concerning a numeric, 


label, 
table. 


The 
CERKTE) 


or address constant in the symbol 


Receive Diagnostic Message (RDM, 
routine is passed information 


describing a diagnostic message to be pro- 


duced. 


RDM will send this message to the 


terminal if the user is in conversational 
mode and will add the message to the user's 
listing if he has requested any list out- 


put. 


Figure 8 shows the general relation- 


ship between RDM and other modules in the 


compiler. 
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Figure 10. Testing for Diagnostic Input 
and Processing Diagnostic 


Information Lines 


The Constant Filers (CONFIL, CEKTF) rou- 
tine is called when information concerning 
a oonstant is to be filed in the symbol 
table for use by a later compiler phase. 
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ENTRIES: 


ROUTINE DESCRIPTIONS 


Exec routines bear mnemonic titles as 
well as coded labels. The 5-character 
coded labels begin with the letters CEKT; 
the fifth letter identifies a specific 
module. Various entry points to a routine 
are identified by a sixth letter added to 
the coded label; for example, the coded 
label for the Master Input/Output routine 
is CEKTH, and there are entry points CEK- 
THA, CEKTHB, etc. 


There are no hardware configuration 
requirements for any of the Exec routines. 
All these routines are reenterable, nonres- 
ident, nonprivileged, and closed. 


CEKTA -- Phase Controller (PHC) 


The Phase Controller is the interface 
between the outside world and the compiler 
phases. It receives the LPC to FORTRAN 
initial, continue, and early-end calls, 
prepares for the compiling run, calls the 
phases as subroutines, and returns to LPC 
when compilation is terminated (successful- 
ly or unsuccessfully). See Chart AB. 


The Phase Controller has three 
external entry points: 


LPC to FORTRAN Initial 


(ENTRY name is CEKTAA) 


Register 1 contains the address of the 
parameter list. 


Register 13 contains the address of 
the LPC save area to be used by 
FORTRAN. 


Register 14 contains the return 
address. 


Register 15 contains the V-type Adcon 
for the FORTRAN initial entry initial- 
ization routine (i.e., the entry point 
address). 


[Symbol] CALL FORTRAN initial entry-symbol 
(15) 


{, (module name - addr, 
batch/conversational 
indicator - addr, F option 
table - addr, 

list data set 

DCB - addr)]J 


Phase 1 J 
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TDPHA2 (I No to | to Mark 
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: Be Called 
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Edits and 
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Figure 11. Processing Diagnostic Information Following Return From Each Phase 
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TA800 


Output a Message 
Giving The Type 
of Interrupt 

That Occurred, 
Where, and Other 
Misc Information 


Give File Edits 
as Directed by 
The 10 Columns 
For The Last 
Phase Called 
























Terminate 
Compilation 


Figure 12. Processing of Unexpected Inter- 


ruptions During Compilation 


FORTRAN Initial Entry 
Entry point name for FORTRAN initial 
entry. 


List Data Set Name 
Specifies the address of the module 
name. 


Batch/Conversational Indicator 
Specifies the address of a 1-byte 
field which contains 00000000 (for 
batch) or 00000001 (for conversa- 
tional). 


F Option Table 
Specifies the address of an 8-byte 
option table, where each byte may be 
Y, N, or other. The default chosen by 
FORTRAN is shown in parentheses: 


byte 1 ISD option (produce) (N) 

byte 2 source listing option (Y) 

byte 3 object listing option (N) 

byte 4 cross reference listing 
option (N) 

byte 5 symbol table edit option (N) 

byte 6 storage map option (N) 

byte 7 BCD option (N) 

byte 8 public CSECT attribute (N) 

byte 9 List Data Set option (N) 


List Data Set DCB 
Specifies the address of the data con- 
trol block for the list data set. 
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LPC to FORTRAN Continue 
(ENTRY name is CEKTAB) 


(Symbol1] CALL FORTRAN continue entry - 
symbol 
(15) 


[, (list data set exists 
indicator - addr, 

length of PMD - addr, PMD - 
addr, length of TXT - addr, 
TXT - addr, length of ISD - 
addr, ISD - addr, external 
name list - addr)] 


FORTRAN Continue Entry 
Entry point name for FORTRAN continue 
entry. 


List Data Set Exists Indicator 
Specifies the address of a 1-byte 
field which will contain 00000000 (for 
no list exists) or 00000001 (for. list 
exists) when FORTRAN returns to LPC 
normally. 


Length of PMD 
Specifies the address of a pointer to 
a 1-word field that contains a binary 
number when FORTRAN returns to LPC 
normally. This will be a count of the 
number of bytes in the PMD which FOR- 
TRAN is giving to LPC. 


PMD 
Specifies the address of a pointer to 
the area which will contain the PMD 
when FORTRAN returns to LPC normally. 


Length of TXT 
Specifies the address of a pointer to 
a 1-word field that will contain a 
binary number when FORTRAN returns to 
LPC normally. This will be a count of 
the number of bytes in the TXT which 
FORTRAN is passing to LPC. 


Specifies the address of a pointer to 
the area which will contain the TXT 
when FORTRAN returns to LPC normally. 


Length of ISD 
Specifies the address of a pointer to 
a i-word field that will contain a 
binary number when FORTRAN returns to 
LPC normally. This will be a count of 
the number of bytes in the TXT which 
FORTRAN is passing to LPC. 


ISD 
Specifies the address of a pointer to 
the area which will contain the ISD 
when FORTRAN returns to LPC normally. 


External Name List 
Specifies the address of a pointer to 
the area which contains the external 
name list when FORTRAN returns to LPC 
normally. (Each external name in the 
list is an. 8-byte field.) 


LPC to FORTRAN Early End Call 
(ENTRY name is CEKTAC) 


Register 1 contains the address of the 
parameter list, if any. 


Register 13 contains the address of the LPC 
save area to be used by FORTRAN. 


Register 14 contains the return address. 


Register 15 contains the V-type Adcon for 
FORTRAN early end (i.e., the entry point 
address). 


[Symbol] CALL FORTRAN early-end 
entry-symbol 
(15) 


{, (list exists indicator - 
addr) ] 


FORTRAN Early-End Entry 
Entry point name for FORTRAN dapivsena 
entry. 


List Exists Indicator 
Specifies the address of a 1-byte 
field which will contain 00000000 (for 
no list exists) or 00000001 (for list 
exists) when FORTRAN returns to LPC 
normally. 


ROUTINES CALLED: The phase controller 
calls the five compiler phases, MIO, and 
CONFIL. 


The calling sequence from the phase con- 
troller to these programs is a standard 
call with the address within PHC of the 
intercom area in the parameter list. 


EXITS: The phase controller has three 
exits which correspond to the three 
entries. 





Return Linkage to LPC from FORTRAN Initial 


[Symbol] 


Upon return from FORTRAN initial, 
register 15 contains a code which LPC 
interprets as follows: 


RETURN 


Code Type of Return 
0 Normal. LPC will query user 


before continuing if in conver- 
Sational mode. LPC will call 
FORTRAN continue if in noncon- 
versational mode. 


4 FORTRAN cannot continue. LPC 
will query user, if in conver- 
Sational mode, but will not 
allow him to continue unless he 
first modifies the source data 
set. LPC will call FORTRAN's 
early-end routine in both con- 
versational and nonconversa- 
tional modes. 

8 Abnormal end LPC will not query 
user and will not call FORTRAN 
again. FORTRAN never issues 
this return. 


Return Linkage to LPC from FORTRAN Continue 


[Symbol] RETURN 
Upon this return, register 15 contains a 
code which LPC interprets as follows: 


Parameter 
Information 
Filled In 
List exists 
indicator 
Length of 
PMD 
PMD-length 
of TXT 
TXT-Length 
of ISD 
ISsD-exter- 
nal name 
list 
Same as for 
code = 0 


Code Type of Return 
0 No errors 





4 Minor errors (chance 
of a correct source 
program still quite 
high) 

8 Major errors (all or 
parts of source state- 
ments were omitted) 

12 No object module (prob- 


Same as for 
code = 0 


List exists 


ably table overflow indicator 
within the compiler) 

16 Any highly abnormal Indet ermi- 
condition -~ partial nate 


object module may have 
been produced. FORTRAN 
never issues this 
return. 


Return Linkage to LPC from FORTRAN | 
Early-End 


{Symbol} RETURN 

Upon return from FORTRAN‘sS early-end 
routine, register 15 contains a code which 
is interpreted by LPC as follows: 


Parameter | 

Information 

Filled In 

List exists 
indicator 

Indetermi- 
nate 


Type of Return 


0 Normal 


y A normal condition 
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OPERATION: At the initial call, the Phase 
Controller fetches the compiler parameters 
from the LPC parameter list, obtains 
storage for the work areas using GETMAIN, 
and initializes the excom and intercom 
regions of the Phase Controller's PSECT. 
(The information furnished by LPC is 
described above under “entries." Items 
initialized in excom and intercom are 
described in the description of these 
regions.) The items initialized include 
compiler options; module, main entry point, 
and deck identification names; list data 
set items (this and all interfacing between 
Exec and Data Management is performed by 
the Master Input/Output module MIO); and 
various flags, switches, and pointers. 


Next, initialization for other executive 
modules and Phase 1 is done. This is also 
the point at which control may be returned 
by Exec if conversational corrections to 
the source program were extensive enough to 
require a restart of compilation. After 
initialization, Phase 1 is called. 


Following appropriate initialization, 
Phase 2 is called, followed by the return 
to LPC from FORTRAN Initial. LPC now 
enters the Phase Controller at the FORTRAN- 
continue entry if the user continues. If 
the program is a BLOCK DATA program, Phase 
5 is entered. Otherwise, Phases 3 and 4 
are successively initialized and entered. 


Phase 5 is then called, produces its 
output (using MIO's OLR subroutine for list 
data set lines), and returns to the Phase 
Controller. 


Following terminal processing, such as 
data set closing, preparing return parame- 
ters for LPC, and freeing main storage, the 
compilation is ended by a return to LPC. 


Return parameters to LPC were described 
under "Exits." These parameters are pre- 
pared prior to returning to the initial 
call and the continue call. At return to 
the initial call, the parameter may 
specify: 


1. Normal return. This return will be 
made even if serious program errors 
occurred; terminal users will, of 
course, have been advised of any such 
errors. 


2. FORTRAN wants to abort the compilation 
due to table overflow or some other 
condition that makes continuing the 
compilation inadvisable without modi- 
fying the source program. 


3. An abnormal condition -- FORTRAN may 
not be called again. 
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At return to the continue call, the return 
parameter may specify: 


1. No errors in the source program. 
2. Minor errors. 


3. Major errors (source lines probably 
truncated or omitted). 


4. Table overflow. 
5. An abnormal condition. 


The early-end entry to the Phase Con- 
troller may be reached from LPC if the conm- 
pilation cannot continue or if the user 
does not want to continue. Reasons for 
inability of the compiler to continue 
include: 


1. Source errors so serious that follow- 
ing phases cannot reasonably operate. 


2. Storage overflow in a compiler table. 
3. An abnormal condition. 


In all these cases, appropriate error mes- 
Sages are given. Terminal processing, such 
as closing data sets and freeing main 
storage, is then performed and return is 
made to LPC. 


CEKTC -- Get Next Source Statement (GNSS) 


GNSS obtains a source statement from the 
input data set, using the services of LPC, 
and presents it to Phase 1 for processing. 
Modifications to lines already received are 
taken into account in determining what 
source statement is fetched. See Chart AC. 


RESTRICTIONS: Several assumptions underlie 
the processing done by GNSS: A line in 
card form is assumed to be in the tradi- 
tional FORTRAN format; aC in column 1 
means a comment; a nonblank or nonzero 
character in column 6 means a continuation; 
the statement number is in columns 1-5; and 
the body of the line is in columns 7-72. 
Columns 73-80 may contain card identifica- 
tion, etc., and will be contained in the 
source deck edit on the list data set. 


The required format for keyboard input 
is described in the documentation of the 
ANALYZ subroutine (module CEKTI), given 
later in this chapter. 


An END statement is a line whose body 
consists only of the letters E, N, and D. 
Embedded blanks are allowed. A line meet- 
ing this description that is in fact con- 
tinued (END FILE, for example, with FILE in 
a second line) will be treated as an END 
statement, and further FORTRAN statements 
will be ignored. 


ENTRIES: The only entry point (CEKTCA) to 
GNSS is standard subroutine call from Phase 
1. Phase 1 obtains the required V-con/R- 
con pair from intercom. The parameter list 
furnished GNSS by Phase 1 contains one 
address -- the location within Phase 1 
where the phase moved intercom when called 
by Phase Controller. This address is 
required by GNSS, as GNSS will change items 
in intercom. 


ROUTINES CALLED: GNSS calis the MIO sub- 
routine LINEIN for source lines. LINEIN 
places all information required by GNSS in 
excom. The GETLINE, CALL, and RETURN 
statements are described in the MIO 
documentation. 


GNSS calls the executive subroutine MOD 
when GETLINE specifies the terminal user 
has requested that lines be altered. The 
MOD R-con and V-con are in excom. The 
linkage to MOD is standard; the parameter 
list is as follows: 


LIST DC ACPINCOM) Location of intercom 
in Phase 1. 


MOD places a number in register 15 des- 
ignating the action to be taken by GNSS: 


code Action 
0 Obtain a new statement. 

4, 8, 12 Not expected -- GNSS will 
return to caller if these codes 
are present. 

16 Restart required. Return to 
caller with a return code of 
16. 

20 The current statement must be 
reformed completely. 

24 MOD got the first line of the 
new statement and left informa- 
tion concerning this line in 
excom. 

28 MOD met end-of-data-set in 


reading a line. 


Using a standard call, GNSS calls the 
executive subroutine RDM when an error mes- 
sage is to be issued. The RDM V-con/R-con 
pair is in intercom. The linkage is stan- 
dard with the following parameter list: 
LIST DC A(PINCOM) Location of intercom 

in Phase 1. 


e Specify the message 
2 (see the RDM docu- 
é mentation). 


GNSS calls the OLR entry to subroutine 
MIO when a line is to be added to the 
source listing. The MIO V-con/R-con pair 
is in excom. The linkage to MIO is stan- 
dard. The parameter list is as follows: 


LIST DC A(PINCOM) Location of intercom 


in Phase 1 


DC A(TEXT) Location of output 


line 

DC A(LENGTH) Line length 

DC A(LINENO) Line number, PL4& 
format 


GNSS calls the MIO subroutine BFLUSH, to 
flush a buffer by adding its contents to 
the list data set. The linkage is stan- 
dard. The parameter list contains the 
address of intercom in Phase 1 and the 
flushing parameter. 


EXITS: The only exit from GNSS is a stan- 
dard return to Phase 1, with the return 
code in register 15 set as described in the 
executive module. 





OPERATION: The primary responsibility of 
GNSS is to set the necessary information 
for Phase i to process a statement. This 
information consists of the line number and 
statement number fields in the intercom 
area and the text character string in the 
area indicated by the intercom text 
pointer. 


Certain internal flags and switches. con- 
trol the flow of GNSS: 


TDTERM - This excom flag is raised (set to 
1) before the first line of a 
statement is obtained and lowered 
(set to 0) until the terminal line 
of a statement is detected. 


This excom switch indicates the 
form (C for card, K for keyboard) 
of the preceding line of a state- 
ment. It is set by the first line 
of a statement and reset when a 
statement started in keyboard form 
Switches to card form. 


TDFORM 


TDOVER This excom flag is raised when a 
Single statement runs over 1320 
characters. Subsequent lines of 
such a statement are not passed to 


Phase 1. 


TEMEC - This intercom item, maximum error 
code, will be set to 8 if input 
lines are ignored due to an error 
detected by GNSS. 


Using the LINEIN entry of MIO, GNSS 
calls the LPC subroutine GETLINE repeatedly 
for source lines until a complete statement 
has been assembled. In addition to 
assembling a source statement, GNSS sets 
the intercom items: the line number of the 
first line (TESLNO) and the statement num- 
ber (TESTNO). GNSS also detects END state- 
ments (and sets the intercom item TEEND to - 
mark this) and sets the excom indicators 
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TDU, TDPU, TDAPU, TDPUF, and TDAPUF for use 
by the process terminal modifications sub- 
routine (MOD). 


Card and keyboard lines are processed 
differently, due to their different con- 
tinuation conventions and formats. The 
processing of the first line of a statement 
is also different from the processing of a 
continuation line. For the latter, the 
initial character (TDLE) and the length 
(TDNUMC) of the body of the line text must 
be found. For an initial line, this is 
done only after the line number and state- 
ment number have been placed in intercom. 
As the input lines are received from GET- 
LINE, they are added to the internal files 
area TCTEX1. When a complete source state- 
ment has been formed in this area, the end- 
of-statement character X'FF* is added to 
the statement in this area, and the inter- 
com item TEVSTB is set to the address of 
TCTEX1 for the use of Phase 1. 


Calls on GETLINE in conversational mode 
May result in the terminal user's request- 
ing that one or more lines be altered. If 
so, subroutine MOD is called to determine 
appropriate action. MOD may raise the FOR- 
GET flag to inform Phase 1 that the state- 
ment currently held in a tentative status 
by Phase 1 should be removed from all 
tables, as it will be replaced. In this 
case, GNSS will call GETLINE again to 
obtain a source statement for Phase 1, etc. 
If the tentative statement is to be 
accepted, MOD will direct GNSS to ask for 
new lines without having raised the FORGET 
flag. MOD may also direct GNSS to return 
to the Phase Controller requesting a 
restart. This occurs when the terminal 
user wants to alter a line that Phase 1 
cannot "forget" -- a line permanently added 
to the Phase 1 tables. In such a case, the 
next call on GETLINE will again request the 
first source statement of the program. 


When GNSS is initially entered in con- 
versational compilation, the current values 
of TDBOLD and TDBNEW are interchanged. 
After the exchange, TDBOLD contains the 
address of the buffer filled with source 
lines, and corresponding diagnostic mes- 
sages, for the statement obtained on the 
previous GNSS call. TDBNEW is the buffer 
address for the buffer to be filied on the 
current call. 


At exit from GNSS in conversational 
operation, the FORGET flag is checked. If 
its value is zero, the statement is not to 
be “forgotten” so the statement in the 
buffer whose index is TDBOLD is to be added 
to the list data set. If the FORGET flag 
is 1, the line is to be forgotten and is 
not added to the list data set. 
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If GNSS encounters an end-of-data-set 
return code from GETLINE, the user omitted 
the END card from his source code. GNSS 
creates an END statement and returns to 
Phase 1 normally. 


As an example of GNSS operation, consid: 
er the case where input is card only. A 
card is obtained, via LINEIN. If the line 
is a comment line, it is added to a list 
data set buffer via OLR; LINEIN is then 
called for another line. If the card is 
not a comment line, the status of the 
TDTERM flag is inspected. This flag is sei 
to one upon entry to GNSS so that the line 
is written via OLR. Inspection for a con- 
tinuation line is made. If the card is not 
a continuation card, several operations are 
performed, then inspection for an END card 
is made. If the card is an END card, two 
flags are raised. The text is then moved 
to the Phase 1 buffer. The TDTERM flag is 
then tested again. If down, LINEIN is 
called for a new line, and the chart is 
reentered. If TDIERM is up, the EOS (end- 
of-source~statement) sequence is entered, 
at which point the end-of-statement 
character is added and return made to 
Phase 1. 


Certain tests made by the code are not 
shown in the flowchart, due to their repet- 
itive nature: 


1. Before OLR is called to add a line to 
a list data set buffer, the TESLO flag 
is checked. If TESLO is not equal to 
Y, no source listing was requested and 
the call is not made. 


2. All executive subroutines called by 
GNSS return with a return code of 0, 
&, 8, or 16, as described earlier in 
the General Information section. GNSS 
tests this code, and if it is nonzero, 
return is made to Phase 1 at once, 
with the return code unchanged. 


Continuation inconsistencies (a con- 
tinuation card line received as the initial 
line of a statement, or a noncontinuation 
card line received after a keyboard line 
indicating continuation) produce diagnostic 
messages and cause the line in question to 
be ignored. If a statement contains too 
many characters, a diagnostic message is 
produced and trailing lines of the state- 
ment are ignored. 


CEKTD -- Process Terminal Modifications 
(MOD) 


MOD is called by GNSS when GNSS is 
informed by LPC that a modified line has 
been entered from the terminal. 


MOD will determine the effect of this 
request upon the obtaining of a source 
statement by GNSS. MOD may: 


1. Direct GNSS to replace part or all of 
the statement currently being formed 
for Phase 1. 


2. Raise the FORGET flag to inform Phase 
1 that the statement currently held by 
it in tentative status should be 
removed from the Phase 1 tables (in 
this case, GNSS will obtain a 
replacement). 


3. Direct Phase 1 to return to the Phase 
Controller requesting a restart of the 
entire compilation. 


See Chart AD. 


ENTRIES: MOD has a single entry point 
(CEKTDA) and is currently reached only by 
GNSS, Via a standard call. The parameter 
list contains only the address of intercom 
within the phase calling GNSS. 


ROUTINES CALLED: MOD calls the LINEIN 
entry of MIO when an altered line must be 
inspected to see if it is a continuation 
line. 


EXITS: MOD returns to the calling program 
using a standard RETURN. A return code is 
set in register 15 by MOD, as follows: 


Code | Description 
0 A new statement is to be 
obtained from LINEIN using the 
current value at TDU (see 
"operation", below) as the line 
number following which a line is 


desired. 
4 Suspected system error. 
8 Compiler error. 
12 Suspected system error. 
16 The compiler must restart. 
20 The current statement will be 
reobtained. 
24 A line obtained by MOD is to be 
used by GNSS. 
28 MOD met the end-of-data-set 


(also referred to as “EOS" and 
"EODS") in obtaining a line. 


OPERATION: MOD uses the following excom 
items to determine its response: 


1. TDU. When GNSS is called, TDU equals 
' 'DPU and also equals the line number 
of the last line of the statement 
passed to Phase 1 on the previous GNSS 
call. During GNSS operations, TDU is 

the line number of the last line 
received from GETLINE (the excom item 
TDLINF, referred to in the flowchart 
as “line number"). 


When returning to Phase 1, TDU will 
equal the line number of the last line 
of the statement passed to Phase 1. 


2. TDPU. When GNSS is called, TDPU 
equals the line number of the last 
line of the statement passed to Phase 
1 on the previous call. When GNSS is 
finished, TDPU is changed to the line 
number of the last line now being 
passed to Phase 1. 


3. TDAPU. When GNSS is called, TDAPU 
equals the line number of the last 
line of the statement prior to that 
last passed to Phase 1. As only the 
last passed statement can be forgot- 
ten, the statement containing TDAPU is 
committed for processing. 


When GNSS returns to Phase 1, a new 
statement is being furnished. Both 
TDU and TDPU contain the line number 
of the last line of the statement now 
being passed. TDAPU is set to the 
line number of the last line of the 
statement previously passed. The FOR- 
GET flag directs Phase 1 to keep or 
discard this previously passed 
statement. 


Note: TDPU is never less than TDU; 
TDAPU is never less than TDPU. 


4. TDPUF, the format of line TDPU. 
5. TADPUF, the format of line TDAPU. 


6. TDLINO, the line number of the altered 
line -- the line to replace a line in 
or be inserted into the source 
program. 


AS an example of MOD operation, consider 
the case where the line number altered is 
less than or equal to a line number already 
committed by Phase 1 (TDLINO < TDAPU). A 
restart must occur, and MOD sets a return 
code accordingly for GNSS. : 


For a second example, assume the order 
is (in sequence of increasing line 
numbers) : 


TDAPU = TDLINO 
TDU = TDPU 


Another possibility is one in which the 
order of increasing statement numbers is: 


TDAPU 
TDLINO 
TDPU 
TDU 


If line TDAPU was in card form (TDAPUF = 
Cc) the new line could extend TDPU. The new 
line is inspected. If it is in card format 
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and a continue line, a restart is required, 
as TDAPU is committed. If TDAPU was in 
keyboard form, or if the new line is not in 
card format and a continue line, TDLINO 
cannot modify TDAPU, so no restart is 
required. The next line to be requested by 
GNSS will be the line following TDAPU. MOD 
thus sets TDU to TDAPU and directs GNSS to 
obtain a new line. The insertion of a line 
preceding TDPU means that TDPU -- currently 
held in a tentative status by Phase i -- 
must be "forgotten;” therefore, MOD raises 
the FORGET flag. 


CEKTE -- Receive Diagnostic Message (RDM) 


RDM accepts a diagnostic message in the 
form of a list of pointers to pieces of 
text, assembles the pieces into a line 
image, adds the message to the source List- 
ing, and -- in conversational operation -- 
sends it to the terminal. See Chart AE. 


ENTRIES: RDM has one entry point (CEKTEA), 
the V-con and R-con for which are found in 

intercom. RDM is reached only via a stan- 

dard call. The parameter list is described 
below with an example containing strings of 
length 12 and 37 characters to be combined 
into a message by RDM: 


The location within 
the current active 
phase of intercom 


LIST DC A(PINCOM) 


DC A(L1) String 1 length 
DC A(T1) String 1 text 
DC A(L2) String 2 length 
DC A(T2) String 2 text 
DC A(ZERO) End-of-string 

Ia DC FL1‘°12° 

T1 pe CL12*...* 

L2 pe FL1‘37° 

T2 DC CL37"...° 

ZERO DC FL1‘O* 


ROUTINES CALLED: RDM calis only the master 
input/output module (MIO), at its DIAGOUT 
entry. The DIAGOUT V-con and R-con are in 
excom. Standard linkage is used. The 
parameter list contains: 


LIST pbc A(Intercom)Same as in RDM calls 
pe A(Text) Message text 
Dc A(Length) Message length, bytes 
EXITS: Standard return linkage is executed 
to the calling program. The return code 
set is whatever code was returned by MIO. 
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OPERATION: RDM first assembles the diag- 
nostic message as a line image from the 
indicated pieces of text. The DIAGOUT 
entry to MIO is then called to add the mes: 
sage to the source listing, and, if the 
compiler is running in conversational 
operation, to transmit the message to the 
terminal via PUTDIAG. 


If a diagnostic message is greater than 
80 characters, a diagnostic message is 
added to the source listing and only the 
first 80 characters of the message are sent 
to MIO. 


CEKTF -- Constant Filers (CONFIL) 


CONFIL receives numeric address and 
statement label constants, ensures that 
they have a symbol table entries, and pro- 
vides symbol table pointers to the con- 
stants. See Chart AF. 


CONFIL's CRL subroutine creates an 
internal statement number and files this 
number as a label. These labels may be 
used by compiler phases to mark points in 
the code. 


RESTRICTIONS: Several references are made 
in text and tables to the filing of con- 
stants of one-byte length (referred to as 
#1 constants) and of length 16 (#16 con- 
stants). Currently, no compiler phases 
require that the Constant Files be able to 
file #1 constants, and no code is included 
for such filings, although space is left in 
various tables. For *16 constants, the 
only constant of such length currently is a 
C*16 constant. For such constants, only *8 
alignment is required. In this case, the 
*16 alignment (not space creation) code 
exists, but is not entered. Similarly, C*8 
constant filing uses *4 alignment code. 

The planning for these constants is based 
on the possibility that future modifica- 
tions to the compiler would require the 
ability to file them. 


ENTRIES: The CONFIL subroutines are 
reached via a standard call. The V-con and 
R-con values are available to the calling 
programs in intercom. Prior to calling a 
CONFIL routine (CRL excluded), the calling 
program places the constant to be filed in 
the intercom area TECONS. Upon return, 
CONFIL will have filled in the intercom 
item TEPNTR and will have set TEGNU (and, 
for CRL, TELINO). 


The CONFIL entry points, entry symbol, 
and corresponding TECONS initialization are 
given in Table 5. 


Table 5. Preparation of Constant Receiving Area by CONFIL 


Be ee ee ee er a ee eS ee 
| Entry | CONFIL | CONFIL V-Con | | { 
| Symbol | Name | (Intercom) | Description | TECONS Contents | 
}-----—-}--------} --------------}------------------------}---------—------------------- 
{ CEKTFB | CONI2 | TEVI2 | Files I*2 constants | Constant to TECNS1 | 
| CEKTFC | CONI4 | TEVI4 [Files I*4 constants | Constant to TECNS1 | 
| CEKTFD | CONR4 | TEVR4. | Files R*4& constants | Constant to TECNS1 | 
| CEKTFE | CONRS | TEVR8 {Files R*8 constants | High Order 4 to TECNS1 | 
| | | {| Low Order 4 to TECNS2 | 
| CEKTFF | CONC8 | TEVC8 |Files c*8 constants | Real 4 to TECNS1 | 
| { [7 | Imag. 4& to TENCNS2 | 
| CEKTFG | CONC16 | TEVC16 |Files C*#16 constants | High Order real 4 to TECNS1 | 
{ | | | | Low Order real 4 to TECNS2 | 
{ { | i | High Order imag. 4 to TECNS3| 
{ { | | | Low Order imag. 4 to TECNS4 | 
| CEKTFI | FLADS | TEVFL4 [Files storage class 4 | Constant to TECNS1 | 
| | | {constants other than { | 
| | | | R-cons | | 
| CEKTFI | FLADS | TEVFLS {Files storage class 5 | Constant to TECNS1 | 
j | | | constants | { 
| CEKTFK | FLADVR | TEVVR {Files V-con, R-con pairs| Constant to TECNS1 | 
| CEKTFL | FLL | TEVFLL {Files labels Label to TECNS1 { 
| CEKTFM | CRL | TEVCRL {Creates & files labels | -- | 
Mia a Aa a a te re 3 


ROUTINES CALLED: CONFIL calls RDM if over- 
flow occurred in the symbol table storage 
class table. 


EXITS: CONFIL executes a standard return 
linkage to the calling program. A return 
code is set in register 15 as follows: 


Code Meaning 
0 Normal 
8 Symbol table or storage class 4 


(the adcon page) overflow 


CONFIL returns with register 15 contain- 
ing zero or, if RDM was called, containing 
whatever code was returned by RDM. 


OPERATION: CONFIL initially determines if 
a constant of the type being filed has pre- 
viously been filed. This determination is 
made by inspecting the appropriate anchor 
for the chain in which the constant would 
be included. The constant types, their 
anchors, and the base of the tables con- 
taining the anchors are shown in Table 6. 


If the appropriate anchor is empty (con- 
tains X'80--‘" meaning End-of-Chain), the 
constant is added to the symbol table, the 
storage class table is updated, and the 
anchor is made to point to the new entry. 
(This pointer, like all pointers in the 
symbol table, is a 2-byte offset from the 
symbol table base). 


If the anchor is not empty, the chain to 
which it points is searched until either an 
identical constant is found or an end-of- 
chain indicator is found. If the constant 
has previously been filed, return is made 
with a pointer to the descriptive part of 


the previously filed constant. If the con- 
stant is not already in the chain, it is 
added, the storage class table is updated, 
and the previous end-of-chain entry is 
altered to point to the new entry. 


Much of the code in CONFIL is shared by 
all constant filers. Not all constants: are 
created identically, however. The major 
differences are: 


1. The value part of the name part 
entries for 8- and 16-byte constants 
are longer (by 4 and 12 bytes, respec- 
tively) than for 2- and 4-byte 
constants. 


2. The descriptive part for label con- 
stants is 12 bytes, rather than 8 
bytes. 


3. Adcons in storage class 5 \(list-entry 
adcons) are added to the end of the 
chain, without searching for an iden- 
tical previous occurrence. 


4. The code that searches the chains is 
divided into three sections for great- 
ex speed. The sections search chains 
for constants of length 2 and 4, 8, 
and 16 bytes, respectively. 


5. One constant filer (FLADVR) files two 
identical constants -- a V-con and an 
R-con. The V-con is filed in the 
adcon storage class 4 chain; the R-con 
is filed in the R-con chain. The V- 
and R-cons will occupy adjacent loca- 
tions in storage class 4, in the order 
V-con, R-con. 
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6. Create Label (CRL) creates a label, would create a 1i2-byte "hole". CONFIL 


stores it in TECNS1, then files this fills such holes with items filed later, as 
label. : described in Tables 7, 8, and 9. 

The possibility exists that constants in CONFIL checks for symbol table overflow 
storage class 4 could be given locations in and storage class overflow, which can occu) 
the storage class such that "holes" would only in storage class 4. If either occurs, 
exist. For example, addition to the the TEOFLO item is set in intercom and 
storage class of three constants of 16 ' return is made to the calling program with 
bytes, 4 bytes, and 16 bytes, respectively, a return code of 8. A message is given by 
in that order and with byte alignment, CONFIL in such an event. 

Table 6. Constant Chain Anchors and Table Bases 

Dee era a a ea ea ne re ee ee rs eR Ro 1 
| CONFIL | | Table Base | 
| Name | Constant Type Filed | Anchors (in Excom) j (in Intercom) | 
|-------------}---------------------------}-------------------------}------------------- 
| CONr2 | I*2 i TCCHT (1) |  TECHTB | 
| CONI4 | I*4 | TCCHT (2) | | 
{|  CONRS { R*4 | TCCHT (3) | | 
| CONR8 { R*8 | TCCHT (4) | | 
{| | CONc8 { Cc+8 | TCCHT (5) | | 
| CONC16 | C#16 | TCCHT (6) | | 
| FLADVR | R-Cons(STCL = 4) * i TCCHT (7) | | 
| FPLAD4& | Adcons (STCL = 4) | TCCHT (8) | | 
{ FLADS | Adcons (STCL = 5) | TCCHT (9) j | 
| FLL,CRL | Labels | TCLHT (1-16) | TELHTB | 
}—--—-----—----L_-_.____-—-__-__ - -- 


| *STCL means Storage class | 


Me we eee ee err ee ee ee ee ee ee er ee re ee oe acre ace are ee eae ae eter ee ee a Se Se ce ee ae ce ce ee a re ae a a a ae a ee wn ee ne ee ee ee ee wee ee 


Table 7. CONFIL Storage Assignment No-Hole Branch Table TFNOHO 


Ra re ae ee ee a ee Se er re ge 
| Length Constant Being Filed | ¥*1 | *2 | *4 | *8 | *16 | 
~----——-----=------------------------ +——------ +---——----}--------- $--------- +--------- { 
| Corresponding Register P-3 Value |] 0 | 4 | 8 | 12 | 16 | 
| ~-----—----------------- 4, ----—-- =} =f = =f ff 
| Current Alignment of | | | | | | | 
| Next Space in Storage | | | | | | | 
| Class 2 | *1 | TF610 | TF620 | TF630 | TF640 | %TF650 | 
| }---------}—--------}---------}---------4-------— $--------- 4 
| | *2 | TF610 {| TF610 | TF660 | TF665 | TF670 {ff 
| }--------- $--------- +------- ~—}--------- --------- $--------- { 
| | *4 | TF610 | TF610 | TF610 | TF675 | TF680 | 
| p---~—~--~— +—------- ~-----~--}-----——--}-------—-}--------- 
| | *8 {| TF610 | TF610 | TF610 | TF610 | TF685 | 
| }---------}—------- }----—---- $------~-- t--------- $-------— 4 
| | #16 | TF610 {| TF610 | TF610 | TF610 {| fTF610 | 
ppm a a a cana a oa Nae Sas RSet ab eb e - L | 


Examples of Table Use: 


1. An *4& constant is being filed and the alignment in Storage Class 2 is also #4. 
Branch to TF610. (No holes produced in Storage Class.) 


produced). 


3. An *8 is being filed and alignment is *2. Branch to TF665, at which point an *2 
(and *4 if six bytes are required to create *8 alignment) hole will be made 
available as a result of *8 alignment being produced for the constant. 


re ce eee ce een ee em a a cnn me a ee wan an a eh a a a a ac ep ee ee a as a a an a a em ee en ee ae ee ee an am ae amen am mene ae mie oh 


| 
| 
| 
| 
| 
{| 2. An #*4 is being filed, and the alignment is *8. Branch to TF610. (No holes 
| 
| 
| 
| 
| 
L 
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CS ee er ee a ee Saas Ra Coe Loa ooc-o 1 
| Length Constant Being Filed | i | #23 | + | *8 { 
fe an a +-------- eas foam 1 
| Corresponding Register P-3 Value { 0 | 4 | 8 | 12 | 


t--- noe a nr rn th nn hb = — | 


{| Available Hole 
TDHOLE = 0 
1 


2 


10 
11 
12 
13 


14 


[#8 | #8 | #2 | 41 | 
wa =-- ~~ === --=- === =f === == ff 8-8 - + --=--=-- 
| l l { TF590 TF590 TF590 TF590 | 
}--—--}+--------4----- }-------------------------------------------- 
r | | | x TF511 TF590 TF590 TF590 | 
f-----+-------- fo----4-------------------------------—---------- 
| 1; x | TF521 TF522 TF590 TF590 | 
}-----+-------- $-----}-------------------------------------------- { 
| l | #*x | #X TF511 TF522 TF590 TF590 | 
[-----}--------}-----4---------=+---------------------------------- 
| l x | TP541 TF542 TFS44 TF590 | 
,~----+-------- a 
| x | | Xx TF511 TF542 TF544 TF590 | 
f-----+-------- 4-----4-----------=--------=-----------------==---- 
x |x | TP521 TF522 TF544 TF590 | 
}-----}------- —}-----4-------------------------------------------- { 
| | x |x | x TF511 TF522 TFS544 TF590 | 
a 
1x | | | TF581  TF582 TF584 TP588 | 
}-----+-------- $-----4-------------------------------------------- 
1 x | | | x TF511 TF582 TP584 TF588 | 
[-----+-------- ee 
; x | 1; x | TF521 TF522 TF584 TF588 | 
[-----t-------- f-----}-------------------- === -----------------=-=- 
; x | ; x | X TF511 TF522  TF584 TF588 | 
----- foa------f- f= = === 88-8 
i; x | x | | TF581 TF542 TF544 TP588 | 
}-----+-------- f-—---f-------- === === === === =f 
; x | x | X TF511 TF542  TFS544 TF588 | 
}-----}--------}-----4----------------------------------------=--- 
1 x | x | x | TF521 TF522 TF544 ~TF588 | 
[-----}--------}-----4--------------------------------=----------- 
| x | x oP oae 4 x TF511 [F522 TF544 ~~ TF588 


| 
| 
| 
{ 
| 
| 
| 
{ 
| 
| 
| 
i 
| 
| 
| 
{ 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 15 
F 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
L 


3. Not implemented. 
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pea aaa ge as Da sa eal: tates Dene eae ee 
Examples of Table Use: 


| 
—- 
| 
| 
1. An #4 constant is being filed, no #4 constant hole is available (no X under *4 in | 
the Available Hole columns), and no *8 hole is available. Branch to TF590, where | 
Space will be taken by increasing the size of the Storage Class. | 

| 

| 

| 

{ 

| 

{ 


2. An *2 constant is being filed, no *2 hole is available, but an *4 hole is avail- 
able. Branch to TF542, at which point part of the *4 hole will be used, with the 
unused part of the hole assigned to the *2 hole. 
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Table 9. CONFIL Storage Assignment Byte 


Alignment Branch Table TFBAL 
eo ee ee ee ae ee 
| Alignment of Next 
| Available Byte 


{ i 

| | 
}------——------7------------ | | 
| Address Bits | | Number | 
be--4t---t-- ti 2=6CConstant)=6| Loaded H 
is } 4 4|2q1 4 Length {| Into N4 | 
p-—-4---|-~--+---}------------- +-------——--—- 4 
| { | | | *16 | 80 | 
| { | {| x | *1 | 0 | 
| | xt. #2 | 20 { 
| { 1x |x | +1 | 0 I 
| | xf { | +h { 40 | 
{ i x | { x | *1 i 0 | 
| [ x] x | { *2 | 20 | 
i ix |x | xX f #1 | 0 I. 
| x | | | | *8 | 60 | 
} x | | | *1 | 0 | 
| x | | x | { #2 | 20 i 
{ x | 1x |x i #1 | 0 | 
{x [x | | | +4 | 40 | 
1x |x| {| x | *1 | 0 | 
{x |x] x | | _ #2 | 20 | 
ix] x] x [x | m1 | 0 | 
Rope ek a eS a te Be ee 


CEKTH -~ Master Input/Output (MIO) 

All communication between interface pro- 
grams supplying source line input to and 
producing edited line output for the com- 


piler is accomplished my MIO. The compiler 
I/O operations are: 


1. Calls on LPC GETLINE 
2. Calls on LPC PUTDIAG 


3. Opening of, additions to, and closing 
of the list data set 


See Chart AG. 





ENTRIES: The entry points to MIO are 
listed below. All are reached by standard 
calls. 
List in Parameter List 
Entry Name (Address) 
LDOPEN CEKTHA Intercom 
LDCLOSE CEKTAB Intercom 
LINEIN CEKTHC Intercom 
DIAGOUT CKTHD Intercom, line address, 
4-byte character count. 
OLR CEKTHE Intercom, line address, 


4-byte character count, 
and flag. 


The flag item will be zero 
or a PL4 format line num 
ber, with the following 
results. 


Zero. The output line 


will begin in column 1 of 
the list data set line. 
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Lines presented are 
expected to be preceded by 
a carriage control 
character. 


PI4. The output line will 
begin in column 10 of a 
list data set line. The 
first nine characters will 
be XXXXXXXBB, where X = a 
numeric digit, and B = 
blank. A carriage control 
character of a blanks is 
associated with this line. 
BFLUSH CEKTHF Intercom, Flag. Flag is 
4, 8, or 12 for flushing 
old, new, or both buffers, 
respectively. 


ROUTINES CALLED: MIO calls the LPC entries 
GETLINE and PUTDIAG and uses data manage- 
ment through VISAM I/O macro instructions. 


The CALL and RETURN statements for MIO 
calling GETLINE and PUTDIAG are given 
below. 


FORTRAN to GETLINE Call 


Register 1 contains the address of the 
parameter list. 


Register 13 contains the address of the 
FORTRAN save area to be used by GETLINE. 


Register 14 contains the return address. 

Register 15 contains the V-type Adcon 
for GETLINE (i.e., the entry point 
address). 


{symbol] CALL GETLINE entry-symbol, 
number 


(line 


(15) 
to GETLINE-addr, line number 
from GETLINE~-addr, length of 
line-addr, source-addr, 
altered line number-addr) 


GETLINE Entry 
Entry point name for GETLINE. 


Line Number to GETLINE 


Specifies the address of a 1-word field 
containing a packed decimal number. (FORTRAN 
is requesting a source line which follows 
the line with this number.) 


Line Number From GETLINE 


Specifies the address of a i-word field 
which will contain a packed decimal number 
when GETLINE returns to FORTRAN normally 
(i.e., return code = 0). This will be the 


line number of the source line which GET- 
LINE is giving to FORTRAN. 


Length of Line 


Specifies the address of a i-word field 
which will contain a binary number when 
GETLINE returns to FORTRAN normally. This 
will be a count of the number of characters 
in the source line which GETLINE is giving 
to FORTRAN. This count will include the 
format character (see source line below). 


Source Line 


Specifies the address of a field which 
will contain the address of the source line 
when GETLINE returns to FORTRAN normally. 
This line will contain a maximum of 150 
characters. The first character will be 0 
or 1 (hexadecimal), depending upon whether 
the line is card or keyboard, respectively. 


Altered Line Table 


Specifies the address of a 1-word field 
which will contain (in packed decimal for- 
mat) the line number of the lowest line 
modified when GETLINE returns to FORTRAN 
with a return code of 4. 


GETLINE to FORTRAN Return 
(Symbol ] RETURN 
Upon return from GETLINE, register 15 


contains a code which may be interpreted as 
follows : 


Parameter 
Information 
Code Type of Return Filled In 
0 Normal (source line Line number 
has been obtained). from 
GETLINE. 
Length of 
line. 
Source line 
4 Lines have been Altered 
altered. Line number 
8 Batch -- EDOS (End-of- None. 
Data-Set. GETLINE was 
asked for a line after 
the last line in the 
data set). 
12 "abend-type" Indetermi- 
nate. 


FORTRAN to PUTDIAG Call 


Register 1 contains the address of the 
parameter list. 


Register 13 contains the address of the 
LP save area to be used by PUTDIAG. 


Register 14 contains the return address. 


Register 15 contains the V-type adcon 
for PUTDIAG (i.e., entry point address). 


(symbol] CALL PUTDIAG, entry - symbol 
(15) 
{, (message-addr, length of 
mesSage-addr, correction 
request indicator-addr) ] 


PUTDIAG Entry 
Entry point for PUTDIAG. 


Message 


Specifies the address of an area which 
contains the message. 


Length of Message 


Specifies the address of a 1-word field 
which contains, in binary, the number of 
bytes in the message. 


Correction Request Indicator 


Specifies the address of a 1-byte field 
which indicates whether the message is to 
go to SYSOUT immediately (00000000) or is 
to be stacked by LPC and output as a: 
correction request at the next entry to 
GETLINE (00000001). 


PUTDIAG to FORTRAN Return 


{Symbol] RETURN 

Upon return from PUTDIAG, register 15 
contains a code which may be interpreted as 
follows: 


Code Type of Return 
0 normal 
12 “abend-type” 
EXITS: MIO exits to the calling program 


using a standard linkage. A return code is 
set in register 15 as follows: 


Code Description 
0 Normal return. 


4 GETLINE or PUTDIAG returned with 
an “abend-type” value in regis- 
ter 15. The program calling MIO 
will return to its caller with a 
return code of 4, until the 
phase controller is reached. 

The phase controller will then 
return to LPC with a return code 
of 4. 


OPERATION 


MIO has six entry points. These are 


described below. 
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List Data Set Open Entry -- LDOPEN 


The phase controller enters at LDOPEN 
to open the list data set. Opening 
will not occur again, unless FORTRAN 
is reached at its initial entry ora 
restart occurs. Restart will cause 
the list data set to be closed, and 
then reopened, thus discarding the 
contents of the previous list data 
set. 


List Data Set Close Entry -- LDCLOSE 


The phase controller enters at LDCLOSE 

to close the list data set. Lines as 
held in the list data set buffer (see 

ORL below) are output before closing. 


Get a Line From LPC Entry -- LINEIN 


This entry is used by the exec subrou- 
tine CEKTC (GNSS) when a source state- 
ment is being formed for Phase 1 of 
the compiler. LINEIN will call the 
LPC subroutine GETLINE and pass the 
results to GNSS via excom. 


When processing card lines, GNSS 
requests the first line of each state- 
ment twice, once to determine that the 
previous statement is not to be con- . 
tinued, and once to obtain the first 
line of the new statement. LINEIN 
does not issue two calls on GETLINE 
under such circumstances. Rather, 
LINEIN saves the line after the first 
request, in anticipation of the second 
request. 


If GETLINE sets register 14 to note an 
abnormal end condition, LINEIN returns 
to GNSS with a return code that will 
force an abnormal end return by Phase 
1 to the phase controller, followed by 
an abnormal end return by the phase 
controller to LPC. 


Output a Diagnostic Message Entry -- 
DIAGOUT 


Any executive subroutine or any phase 
wishing to output a diagnostic message 
may do so by calling the receive diag- 
nostic message subroutine, RDM. RDM 
forms the message and adds it to the 
terminal (unless in batch operation) 
and list data set (if any), using the 
DIAGOUT entry to MIO. In cases where 6. 
executive modules have access toa 
complete line, they call DIAGOUT 
directly, for increased efficiency. 


During Phase 1 operation, diagnostic 
messages will frequently be output 
concurrently with addition of source 
lines to the list data set by the MIO 
entry OLR (see below). 


If the computer is running in conver- 
Sational mode, OLR does not output 
source lines as soon as they are 
received, as a terminal correction may 
require deletion of lines. Instead, 
lines are stacked in one of the two 
MIO buffers (obtained by a PHC GET- 
MAIN). Diagnostic messages concerning 
these lines are also stacked, in the 
same buffers, and added to the list 
data set only when the source line 
causing the diagnostic is added to the 
list data set. 


Output Line Receiver -- OLR 


This entry is used by PHC (Phase Con- 
troller), GNSS, and Phase 5 of the 
compiler to add source lines to the 
list data set. 


OLR operation when called from any- 
where except GNSS is quite simple, as 
lines to be added to the list data set 
will never be replaced. GNSS use, on 
the other hand, is more complex, since 
both the previous statement processed 
by Phase i and the current statement 
being prepared for Phase 1 may be 
deleted, due to conversational correc- 
tions. In such a case, the source 
lines for these statements must not be 
added to the list data set. This pur- 
pose could be accomplished by retain- 
ing the entire source program in vir- 
tual storage. The procedure adopted 
by OLR is to stack source lines (with 
diagnostic messages and comment lines 
received concurrently) in buffers 
until the source statement is irrevo- 
cably committed to inclusion in the 
Phase 1 tables and, thus, to further 
processing by following phases. 


The possibility exists that the capac- 
ity of any reasonably-sized buffer 
will be exceeded, due to an abnormally 
large number of comment lines con- 
tained within a source statement. In 
such a case, a message will be added 
to the list data set, to the effect 
that the statement will be repeated if 
corrected at the terminal. 


Flush the Buffer -- BFLUSH 


This entry is used by GNSS to move a 
source statement and associated diag- 
nostic messages from an output buffer 
to the list data set. This operation 
is performed only when it is deter- 
mined that the statement cannot be 
replaced through conversational 
corrections. 


CEKTI Analyze Console Source Line (ANALYZ) 


ANALYZ, which is assembled into GNSS 
(CEKTC), analyzes a console-furnished 
source line to determine the location in 
the string of the statement number (if any) 
and the text. The statement number is 
moved to intercom; the location of the 
first text character and the number of text 
characters are returned to the calling pro- 
gram GNSS. See Chart AH. 


ENTRIES: ANALYZ is reached only from GNSS, 
via a restricted linkage INVOKE. All 
information required by ANALYZ is in inter- 
com. ANALYZ returns with TDLE in N3, and 
TDNUMC in V2. 


ROUTINES CALLED: ANALYZ invokes subroutine 
INSCON (CEKTJ) for inspection of individual 
characters. 


Information placed in registers for 
INSCON is: 


Register Contents 
P2 LASTC, the address of the first 
character beyond the last text 
character. 
V2 I, the address of the last 


character inspected by INSCON. 


ANALYZ initializes V2, which is updated 


by INSCON. P2 is used, but not changed by 
INSCON. 
EXITS: ANALYZ returns to GNSS via a 


RESUME, with no registers set. All infor- 
mation required by GNSS is in excom. 


OPERATION: ANALYZ is invoked by GNSS with 
information in excom giving the line length 
(TDLONG) and the address of the area con- 
taining the line (TDLADD). There are too 
many possible legitimate combinations of 
text characters to describe all ANALYZ 
operations in writing, but the ANALYZ flow- 
chart (Chart AY) gives all logic paths. 


Refer to FORTRAN Programmer's Guide, 
"Appendix A: Entry and Correction of FOR- 


TRAN Source Statements," for information 
concerning the format of source statements. 


CEKTJ -- Inspect a Console Character 
CINSCON) 


INSCON is assembled into GNSS; its func- 
tion is to inspect a character in a console 
source line to determine if it is tab, nu- 
meric, blank, or other. See Chart AI. 


ENTRIES: INSCON is invoked by subroutine 
ANALYZ via restricted linkage. Information 
required by INSCON is all in registers pre- 
pared by ANALYZ, as follows: 


Register Contents 
P2 LASTC, the address of the first 
character beyond the last text 
character. 
V2 I, the address of the last 


character inspected prior to 
INSCON entry. 


INSCON alters P1 and P3 for use by the 
calling program. 
ROUTINES CALLED: None 
EXITS: INSCON returns to the calling pro- 


gram with a RESUME, with a code in RC as 
follows: 


code Description 

0 Not used. 

4 INSCON could not inspect a 
character, as the end of Line 
was exceeded. 

8 The next character was a tab. 
12 The next character was numeric. 
11 ; The next character was blank. 
20 The next character was not tab, 

numeric, or blank. 
OPERATION: INSCON tests the address next 


character in the console line to see if the 
line end has been reached. If so, the RC = 
4 return is taken; if not, the character is 
converted, inspected, and return made with 

the RC code set appropriately. 


CEKTK -- Move a Line to the List Data Set 


LDMOVE is assembled as part of the mas-— 
ter input/output module and is invoked by 
MIO via restricted linkage to move a line 
from a buffer to the list data set. LDMOVE 
counts lines moved, restores the page, and 
adds a page heading when required. See 
Chart AJ. 


ENTRIES: LDMOVE is reached from the MIO 
subroutines FLUSH and BUILD, via an INVOKE. 
All information required by LDMOVE is in 
excom, intercom, the MIO PSECT, or regis- 
ters N1 and N2: 


Ni = text address 
N2 = character count 


ROUTINES CALLED: LDMOVE uses the VISAM PUT 
macro instruction to add lines to the list 
data set. 


EXITS: LDMOVE sets no registers for invok- 
ing programs. Return is via a RESUME. 


OPERATION: LDMOVE determines whether a new 
page is to be started, and, if so, moves 
the page heading from the internal files 
area to the list data set. The new page 
number is included in this heading. 
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LDMOVE adds the line to the list data 
set, updates line counters, and returns. 


CEKTL -- Build a List Data Set Buffer 
(BUILD) 


BUILD is assembled as part of the master 
input/output module and is invoked by MIO 
via restricted linkage to move a line toa 
list data set buffer or the list data set. 
This buffer is emptied using FLUSH (see 
CEKTM) when full, when the list data set is 
to be closed, or when a source statement is 


committed to further compilation (See 
Chart AK.) 
ENTRIES: BUILD is reached from the DIAGOUT 


and OLR entries to MIO, via an INVOKE. 
Programs, invoking BUILD, set registers as 
follows: 


Ni = the address of the line to be 
processed 

N2 = the number of characters in this 
line 


ROUTINES CALLED: BUILD may enter LDMOVE or 
FLUSH via an INVOKE. No registers are set 
for, or expected to be set by, these 
subroutines. 


EXITS: BUILD returns to its caller via a 
RESUME, with no registers set. 


OPERATION: When BUILD is called in batch 
mode, it invokes LDMOVE at once, to move 
the line directly to the list data set. 


In conversation, BUILD checks first to 
see if the list data set buffer currently 
being built is full; if it is, FLUSH is 
called. The line is then added to one of 
the MIO buffers. 


CEKTM -- Flush a List Data Set Buffer 
(FLUSH) 


FLUSH is assembled as part of the Master 
Input/Output module and is invoked to flush 
one or both of the list data set buffers by 
moving all lines resident in the buffers to 
the list data set. See Chart AL. 


RESTRICTIONS: Register P6 must be set for 
FLUSH, as follows: 
P6 =5)—- rDescription 
4 Flush the old buffer 
8 Flush the new buffer 
12 Flush both buffers 
ENTRIES: FLUSH is reached from the MIO 


entry BFLUSH, LDCLOSE, and BUILD via an 
INVOKE. All items required by FLUSH are in 
excom, intercom, or the MIO PSECT. 
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ROUTINES CALLED: FLUSH invokes LDMOVE. No 
registers are set for, or expected from, 
this invocation. 


EXITS: FLUSH returns via a RESUME, with no 
registers set for the calling program. 


OPERATION: FLUSH determines if the buffer 
contains any lines to be removed; if it 
does, FLUSH repeatedly invokes LDMOVE until 
the buffer is empty. Otherwise, FLUSH 
returns at once. 


CEKTQ -- Compiler File Dump (COMDUMP) 


COMDUMP prepares hexadecimal dumps of 
compiler internal files, as part of the 
compiler diagnostic feature processing. 


ENTRIES: 
CEKTOA. 


COMDUMP contains one entry point, 


ROUTINES CALLED: COMDUMP calls LINDUMP at 
its CEKTSA entry, by means of the CEKTG 
macro. 


EXITS: COMDUMP always makes a RETURN to 
the calling program, with no return code 
set. 





OPERATION: COMDUMP is called with three 
parameters: the address of intercom and 
the low and high addresses of the area for 
which a hexadecimal dump is to be prepared. 
The COMDUMP output lines are issued via the 
CEKTG macro instruction. This macro 
instruction issues a call on the LINDUMP 
module, which in turn issues a VISAM PUT to 
pass the line to the compiler user. 


An error message is given and no dump is 
produced if the parameters have the second 
address greater than the third. 


CEKTS -- Compiler Line Dump (LINDUMP) 


LINDUMP is called by the macro CEKTG, 
after CEKTG sets up parameters for the 
call. LINDUMP then forms one or more lines 
in accordance with parameters passed, and 
issues these via the VISAM PUT macro 
instruction. 


ENTRIES: 
CEKTSA. 


LINDUMP contains one entry point, 


ROUTINES CALLED: The PUT macro instruc- 
tion, issued by LINDUMP, leads to an 
external call. 


EXITS: COMDUMP always makes a RETURN, with 
no return code set. 


OPERATION: Before describing LINDUMP, a 
description of the CEKTG macro instruction 
will be given. 


Use of CEKTG 


CEKTG can be used by macro instruction, 
in the forms: 


1. CEKTG AREA, FORMAT, SIZE 
(one area, one format) 
where: 
AREA - may be any symbol defined 


in the program or a term 
such as D(RN), where D is 
any displacement and RN 
any register. 


FORMAT - may be: 


0 or X for hexadecimal 

1 or F for fullword integer 

2 or H for halfword integer 

3 or C for character 

4 or Q for quarter-word integer 
5 or B for binary 

SIZE - may be any absolute or 


relocatable expression of 
up to eight characters. 
It is the byte size of 
AREA. 


If FORMAT is C and SIZE is 133, only 
132 characters are printed, and the 
first character is used to control 
printer skipping and spacing as 
follows: 


1 = Skip to new page before print- 
ing the line 

0 = Space one line before printing 
the line 

+ = Space two lines before printing 
the line 


«--and any other character is ignored. 


If AREA falls in the range 0 to 15, it 
is assumed to relate to an index reg- 
ister (general-purpose). SIZE then 
means the number of bytes, starting at 
the left-most (high-order) byte of 
that register. Wrap-around takes 
place, and the registers are printed 
as they were before the macro instruc— 
tion was executed. 

2. CEKTG A1,F1,A2,F2,...-A6,F6 

(up to six areas and formats) 


where: 


A1,A2,...A6 -- may be as specified 
for AREA above. 


F1,F2,..-F6 ~-- consist of a single 
letter, followed by an integer 
number in the range 1 to 999. 
letter may be: 


The 


for hexadecimal 

for fullword integer 

for halfword integer 

for quarter-word integer 

for character 

for binary 

for name-indicator (see comment 
below) 


Z2WQomry rx 


Unless, and until, an N-type format is 
encountered, each area is printed 
separately on one or more lines, with 
the address of the area indicated, and 
the format letter shown. The area 
associated with the N-type format is 
printed in characters, starting at 
print position number 1. Other areas 
following the N-type format are 
printed alongside, up to a print line 
limit of 120 characters; additional 
lines are used if required. There 
will be spaces between individual 
items (bytes, halfwords, or full- 
words) of multiple areas. 


A1,A2,...A6 may refer to general- 
purpose registers, if they fall in the 
range 0-15. (See discussion on using 
the single-area CEKTG, above.) 


There is no print control ome with 
multiple areas. 


The format parameters always specify 
length in bytes. 


The standard CEKTG output line starts 
with REF, followed by the hexadecimal 
return address in the calling program, fol- 
lowed by ADR, followed by the decimal 
address of the area being printed, followed 
by the hexadecimal address of the area 
being printed, followed by a format letter 
(X, F, H, Q, or B), followed by data items. 
The data items are separated by spaces, 
except in the case of the Q format. 


When a single area is printed in 
character format, or when multiple areas 
follow a name area (see above), the stan- 
dard indication is dropped, and data starts 
at print position 1. 


Except when using character format, 
there is always one space between the out- 
put of successive entries to CEKTG. 


The CEKTG macro instruction saves and 
restores all registers around the call. 


This is the initial PRF entry generated 
at the initialization of Phase 1 
CEKTG -- Calling Sequence 
1. The calling sequence for the Single- 


area CEKTG is as follows: 
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0,N SET FORMAT CONTROL 
1,PARAM POINT TO LIST 
15, ADCEKT 

(15) ,MF=(E, (1)) 


A(AREA) 
A(SIZE)SIZE IS IMMEDIATE 
VALUE 


ADCEKT ADCON IMPLICIT, EP=CEKTSA 


~.ewhere the parameter N is a number 
in the range 0-5 (see notes on single- 
area CEKTG macro instruction above). 


The calling sequence for the muitiple- 
area CEKTG is as follows: 


PARAM 


: or eS 
‘E 


BARA 


NOPR 


0,6 SET MULTIPLE AREA 
1,PARAM POINT TO LIST 
15, ADCEKT 

(15) ,MF=(E, (1)) 


A(A1) FIRST AREA 
CL4'F1" FIRST FORMAT 
A(A2) SECOND AREA 
CL4‘F2" SECOND FORMAT 


0 END OF LIST 


ADCEKT ADCON IMPLICIT, EP=CEKTSA 


The parameters required for LINDUMP to 


prepare line(s) as described above are 

stored by CEKTG in intercom. CEKTG then 
calis LINDUMP. 
parameters, and builds one line of output. 
This output is issued via a VISAM PUT, a 

second line is prepared if requested, and 
SO on. 
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LINDUMP inspects these 


INTRODUCTION 


Phase 1 performs the initial scan of the 
source program, analyzes it for syntactical 
correctness, and encodes the information 
for subsequent processing. Figure 13 il- 
lustrates the operation cf Phase 1. 


On entrance from the compiler executive, 
Phase 1 initializes itself, calls GNSS to 
get the first source statement, and enters 
its main loop. 


The main loop is traversed once for each 
source statement. It classifies the state- 
ment and calls an appropriate subroutine to 
process the statement. On return from an 
individual statement processor, GNSS is 
called for the next source statement. GNSS 
indicates, by the forget flag, whether the 
statement just processed should be compiled 


Get Next 


Source 
Statement 





Statement Processors 


Statement 


Figure 13. Phase 1 Interface 
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or ignored due to action by a conversation- 
al user. In the latter case or if the 
statement just processed contained serious 
errors, the results of processing that 
statement are expunged from all tables and 
output files, and the loop is reentered at 
the top to process the new statement just 
obtained. Otherwise, final housekeeping 
appropriate to the old statement is per- 
formed, and the loop is reentered at the 
top. 


The processing for a statement includes 
producing appropriate output. Executable 
statements cause entries in the program 
representation file (PRF). Declarations 
may set fields in symbol table entries or 
produce output in the stoage specification 
list or preset data file. In addition, 
certain statements may affect Phase 1 
internal tables and flags. 
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Access to the source text is through two 
subroutines: ESC and ACOMP. ESC supplies 
the next character on request. ACOMP sup- 
plies a pair of consecutive items: the 
first is a variable name, function name, 
constant, or statement number (label); the 
second is a delimiter. ACOMP calls subrou- 
tines to make symbol table entries, convert 
constants to binary, etc. 


Statements containing arithmetic or log- 
ical expressions call fhe subroutine EXPR 
to process these expressions into Polish 
notation, which is output in the expression 
representation file (ERF). The subroutine 
SUBS processes subscripts, as a special 
category of expressions for EXPR and the 
statement processors. 


When source program errors are detected 
by Phase 1, the subroutine ERR is called to 
prepare a diagnostic message and transmit 
it to the executive subroutines RDM. The 
message is determined by the parameters 
presented to ERR. A parameter may indicate 
a piece of prestored text to be included in 
the message or may direct the subroutine to 
obtain information from the compiler's 
tables (e.g., a name from a symbol table 
entry) and insert it in the message. 
Depending on the entrance used, ERR will 
also set the local maximum error code and 
may raise the delete flag. 


After recognizing and processing the 
source program END statement, Phase 1 
returns control to the executive. 


Phase 1 has one PSECT that provides 
working storage for all Phase 1 modules. 
This PSECT is contained in module PHIM 
(CEKAI) and is organized as shown in 
Figure 14. 


Phase 1 creates entries in the inter- 
phase files and tables listed below. 


PROGRAM REPRESENTATION FILE (PRF) 


The PRF consists of the executable ele- 
ments of a source program. PRF entries are 
linked (chained) together in the sequence 
of their generation. Additional linking 
connects PRF entries by types. 


Definition point analysis connects each 
definition point of each variable, connects 
the definition points of any formal argu- 
ments, and connects the definition points 
of all COMMON variables. Variables are 
defined when used as: 


1. The expression to the left of an equal 


Sign in an arithmetic or logical 
statement. 
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PSECT 


SAVE AREA ( 19 Words ) 
Phase 1 Working Storage 
( 3508 Bytes) 

Exec Intercom 

(512 Bytes) 


Phase | Internal Working Storage 







1 Page 






HSTCK ( Operator Stack for EXPR) 
LEVTAB (Level Table for IOLST) 
( 3328 Bytes) 







Page 1 





SXS ( Subexpression Stack for EXPR) 
LPTAS ( Left Parenthesis Table for |OLST) 
( 768 Bytes) 


Symbol Table Save Area 

CSTK (Constant Stack for EXPR) 
( 256 Bytes) 

TTRM (Tentative Term Table for SUBS) 

( 768 Bytes) 

DOSTCK (Do Loop Stack for BGNLP) 

( 1024 Bytes) 

LBLTBL ( Alternate Return Lavels for CALL) 
( 2048 Bytes ) 

SFEF (Statement Function Expansion Area) 
(110,480 Bytes) 


Figure 14. 
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Phase 1 Storage 


2. An induction variable of a DO 
Statement. 


3. A variable in an input list. 
4. An argument of an external subprogram. 


(All COMMON variables are defined when an 
external subprogram reference occurs in the 
source program. ) 


Statement number processing establishes 
the branching structure of the source pro- 
gram. Statement number definitions are 
entered in the PRF and are linked. Alli 
statement numbers referenced as branch 
points are linked. 


DO statement processing establishes the 
looping structure of the source program. 
The beginning and terminating points of 
each loop are connected to each other and 
to other loop delimiting points. In addi- 
tion to the loops specified by the source 


program, a false loop is indicated before 
the first executable statement of the 
source program. This provides a position 
in the PRF for computation of expressions 
that are effectively constants in the 
program. 


The program representation file, as 
generated by Phase 1, consists of the fol- 
lowing types of entries. Additional 
entries are added by succeeding phases. 


Begin Program Entry 


This is the initial PRF entry generated 
at the initialization of Phase 1. Program 
type is set to indicate a main program. 
This setting is changed by the occurrence 
of a subprogram (SUBROUTINE or FUNCTION) 
Statement. This entry is the terminal 
entry of the LINK chain. 


Subprogram Entry 


This multiple-purpose entry is a global 
(external) entry point. As such, it is 
linked into the label definition chain 
within the PRF. It has a pointer to the 
symbol table entry of a subroutine or func- 
tion name and a pointer to a list of symbol 
table entries of the formal parameters of 
the subprogram. This list specifies the 
order of occurrence of the formal parame- 
ters. This is a false loop level entry. 

It is the primary entry point of a program. 


Alternate Entry 


This entry is generated for each occur- 
rence of an ENTRY source statement and 
identifies a secondary entry point fora 
program. It is a global (external) entry 
point. As such, it is linked into the 
label definition chain within the PRF. It 
is a false loop level entry. It has point- 
ers to the symbol table for the entry name 
and for entries of the formal parameters. 


Label Definition Entry 


The label definition entry is generated 
for each occurrence of a statement number 
in the source language and for each 
compiler-generated statement number. Label 
definition PRF entries mark possible entry 
points for local (internal) flow control. 
To facilitate the flow analysis by Phase 2, 
they are linked to the preceding entry 
point. 


Equation Entry 


This entry is generated from a FORTRAN 
assignment statement (arithmetic or logi- 


cal). It contains a pointer to the expres- 
sion representation file (ERF) entry repre- 
senting the expression to the left, and 
another for the expression to the right, of 
the equal sign. An assignment statement is 
a variable definition point for the 
assigned-to identifier; it may be a common 
definition point if the defining expression 
contains a reference to an abnormal func- 
tion. An “abnormal" function subprogram is 
one which does any of the following: 


1. Refers to or changes the value of any 
COMMON variable. 


2. Changes the value of any of its 
arguments. 


3. Causes input or output. 


4. Does not always return the same value 
when called with the same arguments. 


All external functions are treated as 
abnormal by the compiler. 


GO TO Entry 


A GO TO entry is generated for each 
occurrence of a GO TO source statement. 
Each is linked to the preceding label 
referencing PRF item, forming the 
referenced label chain used by Phase 2. 


Assigned GO TO Ent 


This entry is generated for each occur- 
rence of an assigned GO TO source statement 
and contains a list of the statement num- 
bers which may be assigned to the variable. 
Each statement number in the list is pre- 
sumed to be referenced at this entry and, 
therefore, is linked to the preceding label 
referencing PRF item for analysis by Phase 
Zs 


Computed GO TO Entry 


Each occurrence of a computed GO TO 
source statement causes an entry that con- 
tains a list of the statement numbers to 
which control can be transferred. Each 
label in this list is assumed to be 
referenced at this entry and therefore, is 
linked to the preceding label referencing 
PRF item for analysis by Phase 2. 


ASSIGN Entr 


This entry is generated for each occur- 
rence of an ASSIGN source statement. It is 
considered neither a reference to the label 
specified nor a redefinition of the 
assigned variable. Hence, the PRF entry is 
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not linked into the label reference chain 
or into the definition point chain. This 
entry is applicable to code generation 
only. 


Arithmetic IF Entry 


This entry is generated for each occur- 
rence of an arithmetic IF source statement. 
Each label specified is assumed to be 
referenced at this entry. This item is 
linked to the preceding label-referencing 
PRF item. A label value of zero indicates 
fall-through to the next executable state- 
ment. If the expression contains a 
reference to an abnormal function, this 
item serves as a redefinition point for all 
COMMON variables and is linked into the 
common definition chain within the PRF. 
The test expression is in the ERF. 


Logical IF Entry 


This entry, generated for each occur- 
rence of a logical IF source statement, 
combines the logical expression part with a 
conditional branch part to make the PRF 
entry very Similar to the arithmetic IF. 

If the conditional statement is not a 
Simple GO TO source statement, the expres- 
Sion is negated, a label is generated, and 
a transfer true to the generated label is 
indicated. This item is linked to the pre- 
ceding label referencing PRF item. If the 
expression contains a reference to an 
abnormal function, this item serves as a 
redefinition point for all COMMON variables 
and is linked into the COMMON definition 
chain within the PRF. 


CALL Entry 


Statement numbers specified as actual 
arguments of a CALL source statement are 
entered into a list ina PRF entry. Each 
label in the list is assumed to be 
referenced at this PRF entry. Hence, CALL 
PRF entries are linked to the preceding 
label referencing PRF entry. The occur- 
rence of a CALL source statement, which is 
a reference to an abnormal function, is a 
redefinition point for all COMMON variables 
and is linked into the COMMON definition 
chain within the PRF. 


The occurrence of a CALL source state- 
ment also effects the generation of an 
argument definition point PRF entry for 
each actual argument of the call that isa 
simple or subscripted variable. Each of 
these PRF entries is linked to the previous 
definition point of the argument. 
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Argument Definition Entry 


This entry is generated for each actual 
argument of an external reference (a call) 
that is a simple or subscripted variable. 
Each entry is linked into the definition 
chain of the particular variable. 


RETURN Entry 


This entry is generated for each occur- 
rence of a RETURN source statement within a 
subprogram. STOP PRF entries are generated 
for RETURN statements occurring within a 
Main program. These entries are either 
explicit or implicit references to global 
(external) labels. As such, they are 
linked to the preceding label referencing 
PRF entry. 


Begin Loop Entry 


For each DO statement, each implied Do 
statement, and around the total PRF exclud- 
ing global (external) entry points, there 
are begin and end loop PRF entries. For 
each begin loop three successive PRF 
entries are made. Having three entries 
facilitates the optimization processing of 
Phase 3. Loop PRF entries are interlinked. 
Each begin loop links to the previous begin 
loop and end loop PRF entries. The begin 
loop entry is also linked to its own end 
loop PRF entry. 


End Loop Entry 


This entry is generated upon completion 
of the processing of a statement with a 
label that matches the last label in the DO 
pushdown list. An end loop entry is linked 
to the corresponding begin loop and to the 
previous loop PRF entry, begin or end. 


CONTINUE Entry 


An entry is included only to show pres- 
ence of CONTINUE statements in the source 
program. 


READ, READ Without Unit, and READ With 
NAMELIST Entries 


An entry is generated for these source 
input statements. READ statements having 
either an EOF label or an ERR label speci- 
fied are linked into the label reference 
chain of the PRF. 


WRITE and WRITE With NAMELIST Entries 


These are generated by WRITE source 
statements. 


PRINT and PUNCH Entries 


These are degenerate (particular) cases 
of WRITE source statements. 


Input/Output List Representation in the PRF 
Entry 


Each entry is a redefinition point when 
the list is associated with a READ state- 
ment. Begin and End Loop PRF entries from 
implied DOs are appropriately interspersed. 
A list sequence of PRF entries follows the 
I/O PRF entry with which they are to be 
associated. 


End List Entry 


This is a control entry in the PRF 
sequence to indicate the termination of an 
I/O list sequence to the code generation 
phase. 


END FILE, REWIND, and BACKSPACE Entries 


An entry is generated upon occurrence of 
each of these statements in the source 
program. 


STOP Entry 


This entry is generated upon occurrence 
of a STOP statement in the source program 
or for a RETURN statement appearing in a 
Main program. 


PAUSE Entry 


This entry is generated upon occurrence 
of a PAUSE in the source program. 


End Program Entry 


PRF control entry to indicate the end of 
the PRF. 


EXPRESSION FILE 


The expression file consists of individ- 
ual strings of entries which are operands 
and operators in the usual right-hand 
Polish notation. These strings represent 
all arithmetic and logical expressions 
. occurring in the source program and any 
subscripts that are not constants. Expres- 
sion file entries are generated by the fol- 
lowing statements: equation, arithmetic 
and logical IF, READ, WRITE, PRINT, PUNCH, 
RETURN with variable index, ASSIGN, 
assigned and computed GO TO, and CALL. An 


entry may consist only of an operand, as is 
the case with the entries for ASSIGN, GO 
TO, RETURN, etc., statements. 


Subscript Expressions 


For subscript expressions, especially 
those containing loop variables, the occur- 
rence of a loop variable causes its initial 
value to be incorporated into the expres- 
Sion. Also, the array item length is in- 
corporated into the expression, so that the 
expression can be used directly in address 
computation. Wherever possible, terms are 
combined in order to increase efficiency. 
Finally, two additional plus operators are 
included before the special subscript 
Operator to facilitate processing by Phase 
3. 


Special representations in the ERF are 
shown below. 


Function and subroutine references: 


F (x) 
F(x,y) 
F(x,y,Z) 


= @& we 


x F 
x y F 
x y Zz 


*. =e 


Max and Min function references: 


AMAX1 (X,Y, Z) 
AMAXO(I, J, K) 


X ¥ MAX Z MAX ~ 
I J MAX K MAX FLOAT ; 


Subscripts: 
array 


~ variable item with offset 
and flag 


subscript - sum of products 
expression 


subscript - : 
operator 


STORAGE SPECIFICATION TABLES 


The storage specification tables consist 
of two types of entries: a common entry 
and an equivalence entry. A common entry 
is made for each occurrence of a COMMON 
statement in the source program and repre- 
sents each variable and its particular 
storage class (blank or named COMMON) in 
the statement. An equivalence entry is 
made for each occurrence of an EQUIVALENCE 
statement in the source program and repre- 
sents the variables in each EQUIVALENCE 
group and their offsets, if any. 


Section 3: Phase 1 43 


The way an equivalence entry is made 
depends on the dimension information pre- 
ceding or following the equivalence 
statement. 


In the event that dimension information 
for a particular variable (DIMENSION, COM- 
MON or TYPE statement) or that a sub- 
scripted variable in the EQUIVALENCE state- 
ment contains only a single subscript, the 
offset in EE1 or EE6 is computed. 


EE2-5 or EE7-10 are not used. 


The type field in EE1 or EE6 indicates 
the type of variable. 


When dimension information does not pre- 
cede the EQUIVALENCE statement and a sub- 
scripted variable in the EQUIVALENCE state- 
ment contains more than one subscript, EE1 
or EE6 contains the number of subscripts. 
In this case EE2 or EE7 are required, and 
EE3-5 or EE8-10 may be required. 


The type field in EEL or EE6 is set to 
‘FF’. indicating that this variable con- 
tains the number of subscripts in EE1 or 
EE6 followed by EE2 or EE7 and possibly 
EE3-5 or EE8-10. 


DIMENSION TABLE 


The dimension table consists of entries 
in the preset data reference set. An entry 
is made for each array dimension specifica- 
tion occurring in the source program. 

These specifications may occur in DIMEN- 
SION, COMMON, or explicit type statements. 
If the array is not a formal argument, the 
entry represents the number of dimensions, 
total size, and the dimension products of 
the array. If the array is a formal argu- 
ment, the entry represents the number of 
dimensions and the individual size specifi- 
cations (value for a constant or symbol 
table pointer for a variable). 


NAMELIST TABLE 


The namelist table consists of entries 
in the preset data reference set. Each 
entry consists of a set of symbol table 
pointers to the variables in a given NAME- 
LIST. An entry is made for each occurrence 
of a namelist name in a NAMELIST statement. 


STORAGE CLASS TABLE 


Phase 1 also adds certain information to 
the storage class table. Each COMMON block 
name occurring in a COMMON statement is 
entered into the storage class table and 
causes the count containing the number of 
COMMON block names to be updated. Also, 
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for each occurrence of a FORMAT statement 
or a literal constant (except as initial 
values in a DATA or Type statement), the 
alphameric storage class counter is incre- 
mented by the number of bytes in the format 
or literal constant. 


FORMAT PROCESSING 


Format labels are entered into the sym- 
bol table and marked as defined. The cur- 
rent value of the alphameric storage class 
counter is entered as the storage location 
in the descriptive part of the symbol table 
entry. 


The alphameric format information, 
including the initial open parenthesis and 
the terminal closing parenthesis, is output 
aS an alphameric table entry in the preset- 
data-reference set. The location of this 
entry is entered into the descriptive part 
of the label symbol table entry. The 
alphameric storage class counter is incre- 
mented by the number of bytes of alphameric 
information. 


The alphameric table entry consists of 
an identification element, an alphameric 
element, and either a termination element 
or a continuation element. All alphameric 
table entries are linked together. As each 
new entry is made after the initial entry, 
the terminal ID is changed to continuation, 
and the new entry location is entered as 
the continuation link. 


ALPHAMERIC CONSTANTS 


A label is generated for each occurrence 
of an alphameric constant as an actual 
argument of a subroutine call. This label 
is entered into the symbol table, in a 
manner analogous to a format label. The 
entrance constitutes both the definition 
and the reference of this label. The 
storage class is set to 3, and the current 
value of the class-3 location counter is 
entered into the label symbol table entry. 
The location counter is incremented by the 
size of the literal constant. An alphamer- 
ic entry is made in the alphameric table 
(see “Format Processing"). 


Literal constants occurring as preset 
data are processed in the same manner as 
numeric constants occurring as preset data. 


DATA PROCESSING 


Each DATA statement and each data speci- 
fication within a type statement produces a 
data entry in the preset data reference set 
transmitted to Phase 5. Each data entry 
consists of a variable element, one or more 
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value elements, and a continuation or ter- 
minal element. The variable elements have 
a pointer to the variable symbol table 
entry. The variable elements within a data 
entry are linked together. The continua- 
tion element links the data entries togeth- 
er. The address of the first data entry is 
in the intercom region. 


CROSS REFERENCE INDEX LIST 


If the user has selected the cross 
reference option, each occurrence of a 
statement number or variable identifier in 
a program causes an entry to be made in the 
cross reference index list. Each entry in 
this List consists of a symbol table point- 
er to the element name or label value, the 
line number of the occurrence, and an indi- 
cator. The indicator specifies that the 
occurrence is an assignment or a defini- 
tion, rather than the usage of or reference 
to the element. 


A variable identifier entry is marked as 
assigned when it occurs, as follows: 


1. To the left of the equal sign in an 
assignment statement. 


2. To the left of the equal sign in a DO 
statement. 


3. In an ASSIGN statement. 
4. As an element of an input list. 


5. As an element of a NAMELIST referenced 
by a READ statement. 


Statement number entries are marked as 
defined when the label PRF entry is made. 
All other occurrences of elements are usage 
or reference entries. 


PHASE 1 ROUTINES, FUNCTIONAL DESCRIPTION 


Phase 1 routines can be grouped accord- 
ing to the function they perform. A brief 
description of the function of each group 
and the routines belonging in each group 
follow. 


Pass 1 Statement Processors 


These modules control the analysis and 
encoding of each of the various FORTRAN 
source statements. The modules are EQUA, 
EXTE, GOTO, IF, TYPE, CONT, DIMN, COMM, 
EQUI, DO, ASSI, FCON, RWIO, FORM, PSR, 
NAML, BLDA, DATA, IMPL, BLNK, SUBE, CALL, 
and END. 


Pass 2 Statement Processors 


Due to the conversational nature of the 
compiler, certain operations pertaining to 
the processing of a statement are best 
delayed until it is sure the statement will 
not be deleted. These modules perform the 
final encoding and housekeeping operations 
for each of the various FORTRAN source 
statements. The modules are DCL2, EXEC2, 
BLDA2, IMPL2, SUBE2, CALL2, and STFN2. 


Expression Processing and Translation 


These routines perform the analysis and 
encoding of arithmetic and logical expres- 
sions wherever they may occur. Two of 
these routines are devoted exclusively to 
subscript processing. They are SUBS and 
TRMPRO. The other routines are EXPR, 
CNVRT, SFDEF, SFEXP, FNCLS, LIBN, ARITH, 
AARG, and CHKINT. 


Source Extraction and Conversion 


These routines perform the character-by- 
character source analysis of the basic lan- 
guage elements (variables, constants, and 
labels) and any conversions required. They 
also file these elements in the symbol 
table as required. The routines aré ESC, 
ACOMP, FLRC, IVST, ICNV, FCNV, and FLIC. 


Loop Processing Service Routines 


The routines that perform the analysis 
and encoding of loops whenever they occur 
are BGNLP, ENDLP, CKLIM, and CLLIM. 


I/O Statement Processor Service Routines 


These routines perform analysis and 
encoding of parts of I/O statements for 
RWIO. The routines are IOLST, FLABL, 
RTRAN, and FNAME. 


Initial Value Processing Service Routines 


These routines analyze and encode the 
initial values occurring in the explicit 
type and DATA statements; they are IDATA 
and IVAL. 


Miscellaneous Service Routines 


There are a number of routines that per- 
form specific functions as required by 
various statement processors and other rou- 
tines. These routines and their functions 
are as follows: 
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ARDIM - analyze and encode the dimension 
specifications for an array when 
encountered in a dimension, common 
or type statement. 


LBSTR - process the label string as encoun- 
tered in the assigned and computed 
GO TO statement. 

SID ~ classify each source statement and 


assign its ID number. 


LABL —- encode statement labels and deter- 
mine if any loops are ended. 


FALTH - determine if a statement number 
reference was to the next sequen- 
tial statement and mark the 
reference for possible later 
optimization. 


ERR - generate a diagnostic message and 
add it to the output data set. 
ROUTINE DESCRIPTIONS 
Phase 1 routines bear mnemonic titles as 
well as coded labels. The five-character 


coded labels begin with the letters CEK; 
the fourth and fifth letters identify a 
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specific routine. Various entry points to 
a routine are identified by a sixth 
character appended to the coded label. Any 
mnemonic name beginning with the letters 
TEV refers to an Executive routine or entry 
point, rather than to a Phase 1 routine. 
The corresponding coded label is given in 
parentheses immediately following the 
mnemonic. 


There are no hardware configuration 
requirements for any of the Phase 1 rou- 
tines. All these routines are reentrant, 
nonresident, nonprivileged, and closed. 
except for entry to the Constant Arithmetic 
Interrupt routine (CEKCS), which uses stan- 
dard linkage, all entries must be by 
restricted linkage conventions. Each Phase 
1 routine has only one exit; there are no 
special exits for error conditions. 


Phase 1 is composed of 65 routines. The 
relationships of these routines are shown 
in the following nesting chart (Figure 15) 
and decision table (Table 10). The rela- 
tionships are shown in terms of levels; a 
called routine is considered to be one 
level lower than the calling routine. The 
nesting chart is drawn to show only link- 
ages to the fourth level. Phase 1 main 
loop is considered to be level 1. 


t€ UOT_OSS 
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Level 


| L PHIM 


BLNK 


CONT 


BLDA2 





ASSI 







ENDLP 





BGNLP SFDEF SFEXP 


FNCLS AARG CHKINT IVAL 


Table 10. Phase 1 Decision Table (Part 1 of 8) 


Routine:-—--~--——-—~—-- Phase 1-----~-—-—~—-—----—-~—-—~——-—-—~~------—-——--~+-+~+---+ Level: 1--~---~-~~---- 
ae ase oe ee ee ere ae PS eg a ne ee ee 1 
| | | Called | { 
|Routine | Usage {Routines | Calling Conditions | 
}-—---—}------------------------- }-----—---f -—--------- ------ ---------------------- 4 
| PH1M {Phase 1 Main Loop {SID {To identify the type of source statement. | 
| l | EQUA {To process logical and arithmetic assign- | 
| | | | ment statements. | 
| | | EXTE |To process EXTERNAL statements. | 
| | | GOTO |fo process GO TO statements. | 
| | {IF {To process Arithmetic and Logical IF { 
| { | statements. | 
| | | TYPE |To process type declaration statements. | 
| | | CONT {To process CONTINUE statements. | 
| | {| DIMN {To process DIMENSION statements. | 
| i | COMM |To process COMMON statements. | 
| | | EQUI |To process EQUIVALENCE statements. | 
| | {DO {To process DO statements. | 
| | | ASSI {To process ASSIGN statements. | 
| | | FCON |To process BACKSPACE, END FILE, and REWIND| 
| | | | statements. | 
| { | RWIO |fo process READ, WRITE, PRINT, and PUNCH | 
| | | | statements. | 
j | | FORM {To process FORMAT statements. | 
| | | PSR | To process PAUSE, STOP, and RETURN | 
{ | { | statements. { 
| j | NAML | To process NAMELIST statements. | 
| | | BLDA |To process BLOCK DATA statements. | 
| | | DATA |To process DATA statements. j 
| | | IMPL {To process IMPLICIT statements. | 
| | | BLNK |To process blank source statements. | 
{ { | SUBE {To process ENTRY, FUNCTION, and SUBROUTINE] 
| | | statements. | 
| | {CALL |To process CALL statements. | 
| | | END |To process END statements. { 
| | {| DCL2 {To terminate processing of various | 
| | | declaration statements. | 
| | | EXEC2 |To terminate processing of executable | 
| | { | statements. | 
| | | BLDA2 |To set program type for BLOCK DATA | 
| | | | statements. | 
| | | TMPL2 |To perform final housekeeping for IMPLICIT] 
| j | | statements. | 
| | | SUBE2 |To make PRF entries for ENTRY, FUNCTION, | 
| | | and SUBROUTINE statements. | 
| | | CALL2 |To adjust the CALL PRF entry. | 
| | |STFN2 {To terminate processing of Statement | 
| | | Functions. | 
| | | ESC |To obtain next source character. | 
| | {IvsT |To make Symbol Table entry for alphameric | 
| | | {| names. 
| | {ERR |To generate diagnostic messages. | 
| | | TEVGNS {To get next source statement. | 
{ | | (CEKTC) | | 
Acide’ el at el yen ny I a i J 
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Table 10. 


Phase 1 Decision Table (Part 2 of 8) 


Rovitines=<~2-—-=—~===—Phase, 15s eh ee evel Oana. 


a ay ape ye re ee ee eat ene en ee eee 
| : | {Called | | 
|Routine | Usage |Routines | Calling Conditions | 
|~-------}-—---------------—-------}} ---------} ------------------------------------------ 
| SID |Source statement {ESC |To obtain next source character. : 
| | identification | ERR |To generate diagnostic messages. { 
------ —~+-------------- - —--- ---—- --}. --- --- - -- 4 - +--+ + + + ee + ee 
| EQUA {Equation statement | LABL |To process statement label. ; 
| | processor = | EXPR |To translate source language expressions | 
{ | | | into Polish Notation. | 
| | | ERR |To generate diagnostic messages. | 
| EXTE {EXTERNAL statement | ACOMP [To assemble source characters into basic : 
| | processor | components. { 
| | [ERR {To generate diagnostic messages. | 
/------— $-~-=---------- = -- 
| GOTO {GO TO statement | Esc |To obtain next source character. ; 
{ {| processor | ACOMP |To assemble source characters into basic | 
| | | {| components. | 
| | | LABL {To process statement labels. | 
| | | LBSTR {To process a string of labels. | 
| | {ERR |To generate diagnostic messages. | 
po----———$-—----------------- === f= 
| IF {IF statement processor {ESC jTo obtain next source character. | 
| | ACOMP {To assemble source characters into basic | 
| | | | components. | 
| | {| EXPR {To translate source language expressions | 
| { | {| into Polish Notation. | 
| | | LABL |To process statement labels. | 
| | | ERR {To generate diagnostic messages. | 
| 1. | TEVCRL |Exec routine that creates a label for a | 
| | {| (CEKTFM)|{ code file. | 
[------—-}-—-—---------------------} ---—---—-} _----- —----------------------------+----4 
| TYPE {Explicit type statement [ESC {To obtain next source character. | 
| | processor | ACOMP {To assemble source characters into basic | 
| | | | components. | 
| | | ARDIM {To process dimension specifications for an| 
| | { | array. 
| | | IDATA |To process initial value data for type and| 
| | | { DATA statements. | 
| | | ERR |To generate diagnostic messages. | 
pam fn fn nnn nnn nn nn nn nnn nn nnn nnn nna { 
| CONT {CONTINUE statement J ESC |To obtain next source character. | 
| | processor | LABL |To process statement labels. | 
| | {ERR {To generate diagnostic messages. | 
|------—+---------------—--------}---—----}-----------------—--------------------- { 
| DIMM {DIMENSION statement | ACOMP |To assemble source characters into basic | 
| | processor { | components. | 
{ | | ARDIM {To process dimension specifications for an| 
| | | | array. | 
{ | | ERR {To generate diagnostic messages. | 
[------ —4---—-----------—---------}---—----- 4 ---------------------------==------------- 
| COMM {COMMON statement | ACOMP |To assemble source characters into basic j| 
| | processor | { components. 
| | | ARDIM {To process dimension specifications for an| 
| | | array. |: 
| | | ERR {To generate diagnostic messages. | 
p------—+------—--------—----—-- ---—----}-~----------—---—-------—---=-------------4 
| EQUI | EQUIVALENCE j ESC {To obtain next source character. | 
| | statement processor | ACOMP |To assemble source characters into basic | 
| | | {| components. | 
| | | SUBS {To translate subscript expressions into | 
| | | {| Polish Notation. { 
| | | ERR |To generate diagnostic messages. | 
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Table 10. Phase 1 Decision Table (Part 3 of 8) 


Routine:-—------—---— Phase 1--~----~----—~—--—-—-~~——---—-—-—-- --—--- + -—- ------- Level: 2--(Cont'd)- 
Desig ee Fg ee ay ep ge me Tae eS yee Toe ee Pe ce a ete OO ecg fol eee pg ee ee ee ee ay ee a gee ey 
| | jCalled | 

[Routine | Usage {Routines | Calling Conditions 

}-------- $-------------------------+-—------- | ------------------------------------------ 
| DO {DO statement | ACOMP |To assemble source characters into basic 

| | processor | | components. 

{ | | LABL |To process statement labels. 

| | | BGNLP |To process Begin Loop information. 

| | [ERR |To generate diagnostic messages. 

f------—- {---------------—--------- $---—---— 4$-—-----------~---------------------------- 
{ASST JASSIGN statement | ESC |To obtain next source character. 

| | processor | ACOMP |To assemble source characters into basic 

| | | | components. 

| | | LABL |To process statement labels. 

| | | ERR |To generate diagnostic messages. 

| | | TEVFLL {Exec routine that makes Symbol Table entry 
| | | (CEKTFL)| for created label. 

|——------ }------------—----—------}---------}------------------------------------------ 
| FCON {File control statements [{ACOMP {To assemble source characters into basic 

| {| processor (BACKSPACE, | | components. 

| | END, FILE, REWIND) | LABL |To process statement labels. 

| | | ERR |To generate diagnostic messages. 

| | |Ivst {To make Symbol Table entries for alphamer- 
| | | | ic names. 

[------ mf na rn pn fn nnn nnn nnn nn enna nensnacearenneree— 
| RWIO {I/O statements | ACOMP {To assemble source characters into basic 

| | processor (READ, WRITE, | | components. 

| {| PRINT, PUNCH) ‘ {[LABL |fo process statement labels. 

| j | LOLST {To process list elements for READ, WRITE, 

| | { PRINT, and PUNCH statements. 

| | {| ERR {To generate diagnostic statements. 

| | | FLABL |To process FORMAT statements. 

| | | RTRAN {TO process ERR and END labels. 

| | | FNAME | To process variable FORMAT designators or 

| | | | NAMELIST names. 

| | jIvst {To make Symbol Table entries for alphamer- 
i | | | ic names. 

| | | TEVI4 {Exec routine that files an Integer *4 

| | | (CEKTFC)|{ constant. 
}------—------~------------------- 4~--—-----}------------------------------------------ 
| FORM {FORMAT statement J ESC |To obtain next source character. 

| | processor [ERR {To generate diagnostic messages. 

| | | TEVFLL |Exec routine that makes Symbol Table 

| | | (CEKTFL)| entries for created labels. | 
}~-----— fama nnn nn nnn 
| NAML |NAMELIST statement | ACOMP |To assemble source characters into basic | 
| | | | components. | 
| | | ERR |To generate diagnostic messages. 
}|--------4------~------------------}---—-----} ----------------------------=-------------4 
| BLDA |BLOCK DATA {ESC |To obtain next source character. | 
| | statement processor | ERR {To generate diagnostic messages. | 
wo = =~ --— $= === ff a naan nnn nnn nnn nnn nnn 
| DATA |DATA statement | ACOMP |To assemble source characters into basic | 
| | processor | | components. | 
| | JSUBS {To translate subscript expressions into | 
| | | | Polish Notation. | 
| | {| IDATA |To process initial value data for type and| 
| | | | DATA statements. 

| | {ERR {To generate diagnostic messages. | 
}--------}------------------------- 4} --- f= <= nnn nnn nnn 
| IMPL {IMPLICIT statement | ESC |To obtain next source character. | 
| | processor | ACOMP {To assemble source characters into basic | 
| | | | components. | 
| | | ERR |TO generate diagnostic messages. | 
a a i a a aa ea glace as J 
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Table 10. Phase 1 Decision Table (Part 4 of 8) 


Rout ine:-——--—-—----—---Phase 1------~----—~--——----~—---—---+----—-—----+-+--~—--—-—--- Level: 2--—(Cont'd)-- 
(Lata ee er ae ee To. . Se SS ete ee eer 1 
| | | Called | | 
jRoutine | Usage [Routines | Calling Conditions | 
}-------- $------------=------------ }--------- $----+- == 2 === { 
| BLNK {Blank statement |] ERR |To generate diagnostic messages. | 
| | processor | | | 
}------— $---------------—---——---}---—--—- }------------------------------------------4 
| SUBE |Subprogram entry | ACOMP |To assemble source characters into basic | 
| | statements processor | { components. | 
{ | (ENTRY, FUNCTION, | ERR {To generate diagnostic messages. | 
| | SUBROUTINE) | TEVCRL {Execute routine that creates a label for | 
| | | (CEKTFM)| the code file. | 
}------— t-~------------—-—-------- }--------- -~---------------------------------------- 1 
| CALL {CALL statement | LABL |To process statement labels. | 
| | processor | EXPR {To translate source language expressions | 
| | | | into Polish Notation. | 
[------— }------------------------- 4-~-----——-}------------------------ =- = --- { 
| END JEND statement | ENDLP |To encode the End Loop entries. | 
| | processor | PSR |To process PAUSE, STOP, and RETURN { 
j | | | statements. | 
| | [ERR |To generate diagnostic messages. | 
Pe ee a a a re er re ee ne Ser ery 
| DCL2 {Declaration statements | none | | 


| {| final processing | | | 
}-------- }-------------------------}--------- -—- -- + nnn 
| BLDA2 | BLOCK DATA statement [none | ake 
| | final processing - | 


| 
~~----—}---------------—---—--- +---—----- $-—----------------------------—---------- { 
| IMPL2 JIMPLICIT statement | none | | 
| | final processing { | i. 
------—}------------------------- +---—-----}------------------------------------------ 4 
| SUBE2 |Subprogram entry | none | | 
| | statements final | | | 
| | processing | | | 
| ~-----—-}------------------------- ---------} -------------------------=----------------+4 
| CALL2 |CALL statement final | EXEC2 {To terminate processing of executable | 
| | processing | | statements. | 
~-----—}----------=-------------- $---—----- 4----------------------------------~------- { 
| STFN2 {Statement function | none | | 
| | statement final | | | 
| | processing | | | 
tec a a a a ce ah hse nc a a sla a te ae 4 
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Table 10. Phase 1 Decision Table (Part 5 of 8) 


Rout ine:—---~--~—-~-~--+-~ Phase 1——~-~--~~~.--~--—...__.-._ __..~~—..---____+-~—Level:; 3---~~-—--+-- 
(renee ae a a es ee 1, Sarre Te eg ee ee ee, Se Re Oe ee es 1 
| | : {Called | | 
{Routine | Usage {Routines | Calling Conditions | 
-------- }-----------------—----~--}---—--—-}------------------------------------------4 
| PSR |PAUSE, STOP, RETURN | ACOMP {To assemble source characters into basic | 
| | statement processor | | components. | 
| | | LABL |To process statement labels. | 
| | | ERR |To generate diagnostic messages. | 
| | | TEVCRL {Exec routine that creates a label for the | 
| | | (CEKTFM)|{ code file. | 
}~-----— {-—~----~-------——---—--- }~----------------------------------------- 1 
| EXEC2 {Executable statements | ENDLP |To encode the End Loop entries. | 
| | final processing | FALTH |To check for references to current label. | 
}------— 4$--------------------—----} ---—-----} ----------------------—----------------—- 

| EXPR |Process expression | ACOMP |To assemble source character into basic | 
| | | components. . | 
| | | SUBS {To translate subscript expressions into | 
| | | | Polish Notation. | 
| | | CNVRT |To convert constants to new type. | 
| | | FNCLS |To determine proper class of a function. | 
| | | LIBN {To select appropriate Library Function | 
| | | name. | | 
| | | SFDEF {To make entries in the Statement Function | 
| | | | Expression File. | 
| | | SFEXP {To make entries in the Expression File. | 
| | | AARG |To make Argument Definition entries in the| 
{ | | | PRE. | 
| | | ERR |To generate diagnostic messages. | 
| | | CHKINT |To treat floating point overflow and | 
| | | | divide checks. | 
}----------------—- -- --- 4} fn nn nn nnn nnn nnn nnn nnn nnn nn 4 
| ARDIM {Process array dimension |ESC {To obtain next source character. | 
| | specification | ACOMP {To assemble source character into basic | 
| { | | components. | 
| { | ERR |To generate diagnostic message. | 
}-----——------------------------—- }-—-—---- 4------------------------------------------ { 
| IDATA {Process initial data | ERR |To generate diagnostic message. 

| | specifications | IVAL {To process constants as initial values in | 
| | | | type or DATA statements. | 
}--------4------------------------- }--~------ 4------------------------------------------ 4 
| TOLST |Process I/O statement | ESC |To obtain next source character. | 
| | List | ACOMP |To assemble source character into basic | 
| | | | components. | 
| | | SUBS {To translate subscript expressions into | 
| | | Polish Notation. | 
| { | BGNLP |fo process Begin Loop information. | 
| | | ENDLP |To encode End Loop entries. | 
| | {ERR |To generate diagnostic messages. | 
| { | IvST |To make Symbol Table entries for alphamer-| 
| i | | ic names. | 
|------—-}------------------~------4---------}----------------—-------------------------4 
| FLABL |Process FORMAT state- | ERR {To generate diagnostic message. | 
| | ment number in I/0 |TEVFLL  |Exec routine that makes Symbol Table | 
| | statement | (CEKTFL)| entry for created label. | 
a a a a i a a ne ee eee ale ae ee atelier 

| RTRAN {Process END and ERR | ACOMP |To assemble source characters into basic | 
j | statement numbers | | components. | 
{ { in READ statements {ERR |To generate diagnostic message. | 
SSS tooo saa Poe ee ee ee ee 1 
| FNAME {Process FORMAT and | ERR [To generate diagnostic message. | 
| | NAMELIST name in | | | 
| {| I70 statements | | | 
|-------- }-------------------------} ---------} ------ - == ---- == === $= $n nnn 
| LBSTR {Process label string in |ESC |To obtain next source character. | 
| { Assigned and Computed | ACOMP |To assemble source characters into basic | 
| {| GO TO statements | | components. | 

| { | ERR {To generate diagnostic message. | 
Be DO sad a cep ea a AS So ene th gl a an ala gn alee J 
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Table 10. Phase 1 Decision Table (Part 6 of 8) 


Routines: —-—------~--- Phase 1-—--~-----—---—-~----—-—----—--+-------—-----—------ Level: 4-------—--—--- 
Ser Ro ee ee ee ree ee ne ee a ee ee 1 
| | |callea | | 
|Routine | Usage }Routines | Calling Conditions | 
}-------- 4$---~-------------—------}--------- }------------------+----------------------- 

| SUBS | Process subscripts | ACOMP |To assemble source characters into basic | 
| | | | components. | 
| | | ERR |To generate diagnostic message. | 
| | | TEMPRO |To process a tentative subscript term pre-| 
| | | | pared by SUBS. | 
| | | TEVI4 |Exec routine that files an Integer*4 | 
| | | (CEKTFC)| constant. | 
}------— }------------------------- $---—-----}------------------------------------------ 4 
| LABL jProcess statement number |ERR |To generate diagnostic message. | 
| | | TEVCRL jExec routine that creates a label for the | 
| | | (CEKTFM)| code file. 

[------— fama nnn nnn nn nnn nnn nn ncn ncn nnn 

| BGNLP |Process and generate | ACOMP {fo assemble source characters into basic | 
| { Begin Loop elements | | components. | 
| | |CKLIM {To check loop parameters for validity. i 
| | | ERR |To generate diagnostic message. | 
| | | TEVCRL [Exec routine that creates a label LOE the | 
| | | (CEKTFM)| code file. | 
[------— +---—--------- t---------4-------~-----------------------—----—---- { 
| ENDLP {Generate End Loop |CLLIM |To remove loop parameter information from | 
| | | | Symbol Table. | 
}------— }------------------------- t--------- }------------------------------------------ { 
| FALTH | Determine fall-through JERR {To generate diagnostic message. | 
| | on GO TO and IF | | | 
| | statements. { | | 
~-----—-}-------------------------4---------}-----------—------------------------------4 
| SFDEF jInitialize for statement | ESC {To obtain next source character. | 
| { function definition | ACOMP |To assemble source characters into basic | 
| { | | components. | 
| | | ERR |To generate diagnostic message. | 
~-----—|-------------------------}-------—-} -------—--------------------=-------+-----f 
|SFEXP {Expand Statement | ACOMP |To assemble source characters into basic | 
| {| Function reference { | components. ; | 
| | | ERR {To generate diagnostic messages. | 
------— }~------------------------}---—---- | ------------------- ------- += 
| FNCLS {Classify function name |none | | 
------— $-------------------------}-+-----—---} -------—--—-----------------------------| 
| IVAL {Process initial values in|ESC |To obtain next source characters. | 
{ | DATA or type | ACOMP |To assemble source characters into basic | 
| | statements | | components | 
| | |CNVRT {To convert constants to new type. | 
| | {| ERR |To generate diagnostic message. | 
|-----—-}------------------------- ---—----- ------------- === === 
| AARG {Process function | none | | 
| | argument | | l 
aan nnn fo anna fn nn nnn nnn nnn nnn 
{|CHKINT |Check for arithmetic |none | | 
| | interrupt during | | | 
| | expression processing | | | 
hicks eee BI a cc a ds ee Mich ees eects a a a tal rae — 
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Table 10. Phase 1 Decision Table (Part 7 of 8) 


Rout in e: -—-—-——-—--——-—— Phase 1—-~-~--—-—-—~—-——-—-—-—-—----—---+-—-—-—- +--+ --—-—---- +--+ Level: 5-—-----—----- 
Oe ee oe ae a ee a ee ee ES 1 

| Called | | 
|Routine | Usage {Routines | Calling Conditions | 
-—-----}------------—------------}----—--------------—--------------------------—----4 





| ACOMP {Assemble component | ESc {fo obtain next source character. 

| | (operand-operator pair) {FLRC {To file real and complex constants in Sym-| 
| | | { bol Table. | 
| | {IVstT |To make Symbol Table entries for alphamer-| 
| | | | ic names. . | 
| | | ICNV |To convert a decimal integer to a binary | 
| i | integer. | 
| | | FLIC |To file integer constants in the Symbol | 
| | | | Table. | 
| | {ERR {To generate diagnostic message. | 
| j | TEVCRL [Exec routine that creates a label for the | 
{ { | (CEKTFM) | code file. { 
[------—-}-—----------------------- 4 ---------} ----------------------------—----------4 
| CNVRT |Checks types and converts|LIBN |To select appropriate Library Function | 
I | constants | name. | 
| | | ARITH |To perform all constant arithmetic. | 
| { {ERR {To generate diagnostic message. | 
[-----—— }---------------—-------- 4---—--—-}-------_--------------------—----------- 1 
|TEMPRO |Process subscript term | ERR {To generate diagnostic message. — | 
~-----—}----—---------—-----------}-——---- 4------------------------------—---------- 1 
| CKLIM {Check loop parameters | ACOMP {To assemble source characters into basic | 
| | for correctness and | | components. | 
{ | validity {ERR {To generate diagnostic message. | 
|-------- $------------------------- +--------- $-------——-------—----------—--------——- --4 
{| CLLIM jClear flags on loop | none | | 
{ | parameters at End Loop | | | 
Da I a ee 4 
Routine:--—--—-—~--—----Phase 1--—----—-—-—--—~——-—-—---—-—-—-———--—-—-+-——--——--—~+-~~—~-—--—-Level: 6——-----—-—--—~—-- 
a a ee ee ed 
| ESC [Extract source character |none | | 
|------—-}---------------—--------- ---——----}-----------—------------------------------ 
| LIBN {Select Library Function |IVST {To make Symbol Table entries for | 
| | name | | alphameric names. | 
| | | ERR jTo generate diagnostic message. | 
}------—------------------—-------}-_------} -----------—----------------------------—- 
| FLRC |File real constant in | FCNV {To convert a decimal constant to floating | 
{ | Symbol Table | | binary. | 
| | | ERR {To generate diagnostic message. | 
| | | TEVR4 [Exec routine to file a Real*4 constant. | 
{ | | (CEKTFD) | | 
| | | TEVR8 | Exec routine to file a Real*8 constant. | 
| | | (CEKTFE) | | 
| | | TEVC8 {Exec routine to file a Complex*8 constant. | 
| | | (CEKTFF) | | 
| | | TEVC16 {Exec routine to file a Complex*16 | 
| | | | constant. | 
| | (CEKTFG) | | 
}------—4----------------—----------—-----}} -—---------------- --- 4 
| FLIC |File integer constant in |ICNV |To convert a decimal integer to a binary | 
| | Symbol Table. | | integer. | 
| { {ERR {To generate diagnostic message. | 
| { {| TEVI4 {Exec routine to file an Integer*4 | 
| | | (CEKTFC) | constant. | 
}------—4------------------------- $---------}-—--------------------------------------—- 1 
| ARITH | Perform constant | ERR {To generate diagnostic message. | 
| {| arithmetic during | CHCBGA | 
{ | expression scan | CHCBKC | | 
| | |CHCBIA |FORTRAN Math Library exponentiation | 
| { | CHCBKA | routines. | 
{ { |CHCBMC | | 
bases ah nc ea a a a i a a a eae J 


Table 10. Phase 1 Decision Table (Part 8 of 8) 
Routine:—-—~—-—---—-~—--—Phase 1—------——~—--—-~--—-—--—-----—--—-—~+-———-~--++--+---—- Level: 7------------ 
Cera a ma rt aa SS a a a eC RR a 1 
{Called | 
{Routine | Usage | Routines Calling Conditions | 
aan nn fo nn nn nn n= = == ff nnn 
| Ivst {File variable name in | ERR {To generate diagnostic message. | 
| | Symbol Table | | 
~--~---- }~----~~-~-----~----------4---—-----}}-—---------------------------------------f 
| FCNV {Convert floating-point | ICNV |To convert a decimal integer to a binary | 
|. {| number from decimal | integer. 
| {| to binary. | ERR {To generate diagnostic message. | 
De a a pa sin gc a at ee a ae er ae 
Rout ine:---—-—-—---—--—--Phase 1-~------~---~—-—--—-----—-—--—-—---—-—-—+~---—------- Level: 8-—~—--—--—--——- 
a ee em ae ee ee 1 
| ICNV . {Convert integer from | none | 
| | decimal to binary. | | 
aN a a ta 4 
| ERR |Generate diagnostic | TEVRDM |Exec routine that issues a diagnostic | 
| {| message | (CEKTE) message. | 
pa a a a a a la a er 


CEKAD -- Phase 1 Main Loop (PH1M) 


PH1M controls the identification, analy- 
Sis, and encoding of source data in Phase 
1. See Chart AM. 


ENTRIES: PHIM has one entry point CEKAD1. 
Exec intercom base is expected in parameter 
register P2. 


EXIT: No output parameters. 


OPERATION: PHIM performs all initializa- 
tion for Phase 1. This includes generation 
of a begin program PRF item, followed by 
the begin loop PRF items for the false 
loop. Following initialization, a source 
statement is read, identified, analyzed, 
and encoded by calling appropriate subrou- 
tines. At this point, the next source 
statement is read, and the forget and 
delete flags are tested. If either the 
forget flag (set by GNSS) or the delete 
flag (set by any of the statement process- 
ing subroutines) is raised, the previously 
encoded statement is deleted. The state— 
ment deletion is accomplished by resetting 
appropriate items in intercom from their 
respective backup values. These backups 
are set for each statement prior to state-_ 
“ment processing. The symbol table is 
restored for variable items, through use of 
a symbol table save area (Figure 16). 
Backups for all variable symbol table 
entries except the NAME, DPP, LINK, TYPE, 
and LINKF items are entered into the save 
area, and if deletion is required, these 
backups are used to restore the symbol 
table entries. After deletion, the next 
statement is processed. 





BKPB - Backup Byte for Symbol Table change 
BPNTR - Byte Pointer into Symbol Table for BKPB 


Figure 16. Symbol Table Save Area 

If the statement is not deleted, the 
appropriate subroutine is called to com- 
plete the processing for that statement. 
All tables which may have been updated are 
then checked for overflow. If no overflow 
occurred and the statement just processed 
was not an END statement, control is trans- 
ferred to the beginning of the loop, to 
process the next statement. 


CEKAK -- Assignment Statement Processor 
(EQUA) 


EQUA analyzes and encodes logical and 
arithmetic assignment statements. See 
Chart AN. 


ENTRIES: EQUA has one entry point (CEKAK1) 
and no input parameters. 
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EXIT: 


No output parameters. 


OPERATION: EQUA generates an equation PRF 
entry and than calls the Expression Scan 
subroutine. If the expression is a state- 
ment function definition, the PRF entry is 
deleted, and the statement ID number is 
changed from assignment to statement 
function. 


CEKAM -- EXTERNAL Statement Processor 
(EXTE) 


EXTE analyzes and encodes the EXTERNAL 


statement. See Chart AO. 
ENTRIES: EXTE has one entry point (CEKAMA) 


and no input parameters. 


EXIT: No output parameters. 
OPERATION: EXTE checks to see that the 


statement is not in a BLOCK DATA program 
and is not the conditional statement of a 
logical IF. If not, the statement is 
scanned, and the variabies listed are 
marked as “external function" in the symbol 
table. If the statement is in a BLOCK DATA 
program or is the conditional statement of 
a logical IF, an error message is produced 
and the scan is terminated. 


CEKAQ -- GO TO Statement Processor (GOTO) 


GOTO analyzes and encodes all forms of 
the GO TO statement. See Chart AP. 


ENTRIES: GOTO has one entry point (CEKA- 
QA), with no input parameters 


EXIT: No output parameters. 


OPERATION: After calling the Label Pro- 
cessing routine, GOTO determines whether 
the statement is an unconditional GO TO, 
assigned GO TO, or computed GO TO. In each 
case, the appropriate PRF entry is made. 

If an unconditional GO TO is the condition- 
al statement of a logical IF, the sign of 
the ERF entry for the logical IF is 
changed, and the GO TO label value is 
inserted as the true transfer label in the 
logical IF PRF entry. For the assigned and 
computed GO TO, internal subroutine LBSTR 
is called to process the label list into 
the PRF entry. 


CEKAR ~~ IF Statement Processor (IF) 


IF analyzes and encodes the arithmetic 
and logical IF statements. See Chart AQ. 


ENTRIES: IF has one entry point (CEKARA), 
with no input parameters. 


EXIT: No output parameters. 
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OPERATION: After calling the label pro- 
cessing routine, IF generates an arithmetix 
IF PRF entry. It then calls upon the 
Expression Processing routine to analyze 
and encode the conditional expression. If 
the expression type is logical, the 
logical-IF indicator is set and the PRF 
entry ID is changed to logical IF. A non- 
source label is created and entered as the 
“true” transfer label in the PRF entry. If 
the expression type is arithmetic, the 
three transfer labels are entered in the 
PRF entry. 


CEKAS -- Type Statements Processor (TYPE) 


TYPE analyzes and encodes the type 
statements, including INTEGER, REAL, COM- 
PLEX, LOGICAL, and DOUBLE PRECISION. See 
Chart AR. 


ENTRIES: TYPE has five entry points, each 
of which requires no input parameters. The 
five entry points are INTE (CEKASI) for the 
INTEGER statement, REAL (CEKASR) for the 
REAL statement, COMP (CEKASC) for the COM- 
PLEX statement, LOGL (CEKASL) for the LOGI- 
CAL statement, and DOBP (CEKASD) for the 
DOUBLE PRECISION statement. 

EXIT: No output parameters. 

OPERATION: A type switch is set to show 
which type statement is used. Where the 
statement is not DOUBLE PRECISION, TYPE 
scans it for a length indication; if there 
is a length indication, the type switch is 
adjusted to show the length. TYPE then 
continues the scan, picking up variables 
and making entries in the symbol table to 
specify the variable type. If the variable 
is dimensioned, TYPE also makes entries in 
the dimension table to specify array 
length. If a dimension specification is 
encountered (indicated by a variable fol- 
lowed by a left parenthesis), the Dimension 
Scan routine is called to process the 
dimension. If an initial value specifica- 
tion is encountered (indicated by a slash), 
the Data Scan routine is called to process 
the initial values. 


CEKAT -- CONTINUE Statement Processor 
(CONT) oe 


CONT analyzes and encodes the CONTINUE 
statement. 


ENTRIES: CONT has one entry point (CEKAT1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: CONT calls the label processing 
subroutine to convert the label, if any, 
and to see if any loops are ended. The 


logical IF indicator is tested to see if 
this is the conditional statement of a log- 


ical IF statement, and a warning message is 
issued if it is. A CONTINUE PRF entry is 
made, and the statement scanned to see that 
the remainder of the statement is blank. 


CEKAU -- DIMENSION Statement Processor 
(DIMN) 


DIMN analyzes and encodes the DIMENSION 
statement. See Chart AS. 


ENTRIES: DIMN has one entry (CEKAUA), with 
no input parameters. 


EXIT: 


————e, 


No output parameters. 


OPERATION: DIMN first checks to see that 
the DIMENSION statement is not a condition- 
al statement of a Logical IF. It then pro- 
ceeds to scan the statement calling the 
dimension specification processing routine, 
to process the dimension values as they are 
encountered for each variable. Appropriate 
diagnostics are generated if any source 
errors or incongruities are encountered. 


CEKAV -- COMMON Statement Processor (COMM) 


COMM analyzes and encodes the COMMON 
statement. See Chart AT 


ENTRIES: COMM has one entry point (CEKAV1) 
with no input parameters. 

EXIT: No output parameters. 

OPERATION: COMM first checks to see that 
the COMMON statement is not a conditional 
statement of a logical IF. If this is the 
case, it then opens the common list entry 
and begins the scan of the statement. Com- 
ponents are acquired with the assemble com 
ponents routine, and variables are entered 
into the common list. The symbol table 
entry common flag is raised, and, if the 
variable is followed by a left parenthesis, 
the array dimension specification processor 
routine is called to process the dimension 
values. 


Variables enclosed in slashes initiate a 
search of the storage class table for named 
COMMON blocks, and if any are found, the 
storage class is appropriately set. Other- 
wise, the name is entered as a named COMMON 
block, and a new storage class is estab- 
lished. If there are two slashes without 
an intervening variable, the storage class 
will be set to 9 for blank COMMON. 


Appropriate diagnostics are generated if 
any source errors or incongruities are 
encountered. 


CEKAY -- EQUIVALENCE Statement Processor 


_ CEQUT) 


EQUI performs the analysis and encoding 


for the EQUIVALENCE statement. See Chart 
AU. 
ENTRIES: EQUI has one entry point (CEKAYA) 


and no input parameters. 


EXIT: No output parameters. 
OPERATION: EQUI determines that the state- 


ment is not the conditional statement of a 
logical IF. If this is the case, the head- 
ing information for the equivalence table 
is entered into the storage specification 
table. Source elements are acquired with 
ACOMP and analyzed for syntactical correct- 
ness. Variables are entered into the 
equivalence table as they are encountered, 
and subroutine SUBS is called to determined 
any offsets indicated by a left parenthesis 
following a variable. If an offset cannot 
be completed because the dimension inform- 
tion (TYPE, COMMON, or DIMENSION statement) 
has not yet been specified for an equiva- 
lence variable, the actual subscripts are 
stored in the Storage Specification List. 


Appropriate diagnostics are generated if 
any source errors or incongruities are 
encountered. 


CEKAZ -- DO Statement Processor (DO) 


DO analyzes and encodes the DO state- 
ment. See Chart AV. 


ENTRIES: DO has one entry point (CEKAZ1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: DO determines that the state- 
ment is not the conditional statement of a 
logical IF. If it is not, A COMP is called 
to acquire the label for the end loop. If 
the label value is satisfactory, BGNLP is 
called to process the loop variable, range, 
and increment. Appropriate diagnostics are 
generated if any source errors or incon- _— 
gruities are encountered. 


CEKBC -- ASSIGN Statement Processor (ASSI) 





ASSI analyzes and encodes the ASSIGN 
statement. See Chart AW. 


ENTRIES: ASSI has one entry point (CEKBCA) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: ASSI generates a PRF entry for 
the ASSIGN statement and then scans the 


source characters. ACOMP is called to 
acquire the assigned label and the vari- 
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able. The intervening characters "TO" are 
checked individually after calls on ESC. 


Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 


CEKBD -- File Control Statement Processor 
(FCON) 


FCON analyzes and encodes the BACKSPACE, 


END FILE, and REWIND statements. See Chart 
AX. 
ENTRIES: FCON has three entry points: 


BKSP (CEKBD1), ENDF (CEKBD2), and REWI 
(CEKBD3) for the BACKSPACE, END FILE, and 
REWIND statements, respectively. FCON has 
no input parameters. 

EXIT: No output parameters. 

OPERATION: FCON has three entry points and 
sets a switch to one of three values, 
depending upon which entry was taken. A 
PRF entry is generated and the switch set- 
ting entered in that entry, to indicate 
whether the source statement was BACKSPACE, 
END FILE, or REWIND. ACOMP is called to 
acquire the unit number, which is entered 
into the PRF entry. The I/O initialization 
library routine entry name (CHCIA1) is 
filed in the symbol table and marked as 
class external. 


Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 


CEKBE -- Input/Output Statement Processor 
(RWIO) 


RWIO analyzes and encodes the READ, 
WRITE, PRINT, and PUNCH statements. See 
Chart AY. 


ENTRIES: RWIO has four entry points: READ 
(CEKBE1), WRIT (CEKBE2), PRNT (CEKBE3), and 
PUNC (CEKBE4), for the READ, WRITE, PRINT, 
and PUNCH statements, respectively. RWIO 
has no input parameters. 

EXIT: No output parameters. 

OPERATION: RWIO has four entry points. 
Each entry point generates a PRF entry 
corresponding to the type of source state- 
ment. For the READ statement, RWIO first 
determines whether or not it is a READ 
without unit statement. For all state- 
ments, the Assemble Components routine is 
called to acquire statement components as 
required. If no FORMAT reference is given, 
the FORMAT pointer in the PRF entry is set 
to x*8000°. 


If a NAMELIST reference is given in 
place of a FORMAT reference, the PRF ENTRY 
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ID is changed accordingly. For the READ 


. Statement, END and ERR condition transfer 


options are checked and entered into the 
PRF if present. If they are not given, th: 
statement number items in the PRF are set 
to zero. Subroutine IOLST is called to 
process the list elements if required. The 
I/O Initialization Library routine's entry 
name (CHCIA1) is filed in the symbol table 
and marked as class external. 


Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 


CEKBF -- FORMAT Statement Processor (FORM) 


FORM analyzes and encodes the FORMAT 
statement. See Chart AZ. 


ENTRIES: FORM has two entry points: 
CEKBF1, for Phase 1 FORMAT statement pro- 
cessing, and SYSPFMT, for FORTRAN I/0-time 
FORMAT statement processing. CEKBF1 has nc 
input parameters; SYSPFMT has the followinc 
input parameters: 


P2 -- FIO Translate Table 
P3 -- Address of FORMAT statement 
Pu ~- FORMAT table output area 


EXITS: Only the normal exit is made, with 
no output parameters. 


OPERATION: FORM begins by determining that 
the statement is not the conditional state- 
ment of a logical IF statement and not 
inside a BLOCK DATA program. If this is 
the case, the statement label is then con- 
verted to its binary value and filed in the 
symbol table (see Table 11). 


The FORMAT table is initialized in the 
Preset Data area, and encoding of the FOR- 
MAT statement begins. 


Table 11. Encoding of FORMAT Symbols 

Ee a ee ee ee 
| Character | ID Code | 
}-------------------- +-~---------------- 4 
| 0-9 | 1 | 
| Aj lsles | 2 | 
| D,E,F | 3 | 
| G | 4 | 
| H | 5 | 
| P | 6 
| T | 7 | 
| X | 8 | 
| +,- | 9 
| / | 10 | 
| ( | 11 | 
| ) | 12 | 
| e | 13 | 
| . | 14 | 
| : | 15 | 
| EOS | 16 | 
| Other | Af | 
bs er ee eh Sa et a ea at J 


The encoding consists of filling out a CEKBG -- PAUSE, STOP, RETURN Statement 


FORMAT table (see Table 12), through which Processor (PSR) 
the compiler communicates format informa- 


tion to FORTRAN I/O routines. An entry is PSR analyzes and encodes the PAUSE, 
placed in the table whenever a valid FORMAT STOP, and RETURN statements. 


statement code is found. In addition, syn- 


tax is checked, and diagnostics are issued ENTRIES: PSR has four entry points: 
for errors. FORMAT statement processing (CEKBG1), STOP (CEKBG2), 
continues after diagnostics. for the PAUSE, STOP, 

respectively, and ESTOP (CEKBG4) for the 


See Chart BA. 


PAUS 
and RETU (CEKBG3) 


and RETURN statements, 


call by the END statement processor (END). 
FORM terminates~-tke scan when it finds a None of the entry points has input 


level-zero right parenthesis. parameters. 


Table 12. Translation of Format Codes 












FORMAT 
CODE FORMAT TABLE ENTRY 
SIZE BYTE BYTE BYTE BYTE BYTE BYTE 
(BYTES) 0 ] 2 3 4 5 
STRING CHARACTER STRING 
H LENGTH+2 X'0!' LENGTH AS MANY BYTES AS NEEDED (MAX 255) 
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COUNT 
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COUNT 
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X'Cc! COUNT 

REPEAT 
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EXIT: No output parameters. 

OPERATION: PSR has four entry points, one 
each for the PAUSE, STOP, and RETURN state- 
ments, and one for a cali from the END 
statement processor (to generate a stop 
when there is flow into an END statement). 
A PRF entry is generated for the PAUSE, 
STOP, and RETURN statements, respectively. 
An appropriate literal constant is filed 
for the pause and stop entries and fora 
return entry in a main program. A call 
from the END statement processor causes a 
stop PRF entry to be generated. The pause 
and stop library routine entry names are 
filed in the symbol table and marked as 
class external. 


Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 


CEKBH -- NAMELIST Statement Processor 
(NAML) 


NAML analyzes and encodes the NAMELIST 
statement. See Chart BB. 


ENTRIES: NAML has one entry point (CEKBH1) 
and no input parameters. : 

EXIT: No output parameters. 

OPERATION: NAML first checks to see that 
the statement is not the conditional state- 
ment of a logical IF or in a BLOCK DATA 
program. NAML then gets the Namelist name, 
which must be enclosed in slashes. After 
the Namelist name is checked for correct 
class; a Namelist table entry is made and 
the symbol table pointer for each variable 
in the list is entered into the table. 
Appropriate diagnostics are printed for any 
source errors or incongruities encountered. 


CEKBI -~ BLOCK DATA Statement Processor 
(BLDA) 


BLDA analyzes and encodes the BLOCK DATA 
statement. See Chart 3C. 


ENTRIES: BLDA has one entry point (CEKBI1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: BLDA first determines that the 
statement is not the conditional statement 
of a logical IF. If this is the case, BLDA 
checks the program type code to determine 
whether it is unknown. If it is, a normal 
exit is taken; otherwise, BLDA prints a 
diagnostic and exits. 


If the statement is the conditional 


statement of a logical IF, BLDA prints a 
diagnostic and exits. 
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CEKBM -- DATA Statement Processor (DATA) 
DATA analyzes and encodes the DATA 
statement. See Chart BD. 


ENTRIES: DATA has one entry point (CEKBM1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: DATA first checks to see that 
the statement is not the conditional state- 
ment of a logical IF statement. The 
variables in the statement are then 
extracted and entered into a parameter 
list, until a slash is encountered. Sub- 
routine IDATA is called at entry DDATA to 
process the initial value specifications 
for the list of variables. The process is 
repeated until an end of statement or a 
source error is encountered. Appropriate 
diagnostics are printed if any source 
errors or incongruities are encountered. 


CEKBN -- IMPLICIT Statement Processor 
(IMPL) 


IMPL analyzes and encodes the IMPLICIT 
statement. See Chart BE. 


ENTRIES: IMPL has one entry point (CEKBN1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: IMPL first determines that the 
statement is not the conditional statement 
of a logical IF statement. The implicit 
type table is then copied into a temporary 
hold area, where it can be modified without 
destroying the current status of the table. 
The type specification is extracted from 
the source statement and identified, and 
the corresponding type code is established. 


The letters being typed are then extracted 


and used as a index to modify the implicit 
type table in the temporary hold area. 


CEKBR -- Blank Statement Processor (BLNK) 
BLNK processes a blank source statement. 


ENTRIES: BLNK has one entry point (CEKBR1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: BLNK first checks the logical 
IF indicator. If it is nonzero, a diag- 
nostic is printed to the effect that no 
conditional statement is given for a logi- 
cal IF statement. If the logical IF indi- 
cator is zero, the label field is checked 
to see if it was blank. If so, a normal 
exit is taken; otherwise, a diagnostic mes- 
sage is printed. 


CEKBS -- Subprogram Entry Statements 
Processor (SUBE) 


SUBE analyzes and encodes the ENTRY, 


FUNCTION, and SUBROUTINE statements. See 
Chart BF. 
ENTRIES: SUBE has two entry points: ENTR 


(CEKBS1) and FUNC and SUBR (CEKBS2) for the 
ENTRY FUNCTION, and SUBROUTINE statements, 
respectively. None of the entry points has 
input parameters. 

EXIT: No output parameters. 

OPERATION: SUBE has an entry point for 
each of the three statements it processes. 
For the ENTRY statement, the program type 
is checked to ensure that it is a subpro- 
gram. If the no flow flag is down (indi- 
cating that the previous executable state- 
ment transfers control only to the current 
statement), a label is created and filed, 
and the symbol table pointer is entered 
into the PRF. This is done so that a 
branch around the ENTRY statement can be 
generated. The DO level is also checked 

' for zero, to ensure that the ENTRY state- 
ment does not occur within a DO loop. 


For FUNCTION and SUBROUTINE statements 
the program type is checked to ensure that 
it is unknown, thus indicating that no 
statement except an IMPLICIT statement has 
preceded it. 


The PRF entries for theSe statements are 
built in a temporary area, due to their 
variable length. The entries assembled by 
this routine are then copied into the PRF 
aS permanent entries during Pass 2, in sub- 
routine SUBE2. 


The entry name is acquired and classi- 
fied. For the FUNCTION statement the type 
option is processed and coded if given. 
The dummy arguments are then scanned and 
entered into the PRF. The symbol table 
entries for each argument are flagged, and 
the symbol table pointers are entered into 
the storage class table. 


Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 

CEKBU -- CALL Statement Processor (CALL) 


CALL analyzes and encodes the CALL 
statement. 


ENTRIES: CALL has one entry point (CEKBU1) 
and no output parameters. 
EXIT: No output parameters. 


OPERATION: CALL first calls LABL to pro- 
cess the statement label, ifone is pre- 


sent. CALL then generates a PRF entry for 
the CALL statement. Finally, the expres- 
Sion scan routine (EXPR) is called to ana- 
lyze and encode the subroutine name and the 
arguments. 


CEKAL -- END Statement Processor (END) 


END performs the required processing for 
an END statement. See Chart BG. 


ENTRIES: END has one entry point (CEKAL1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: If the statement is the condi- 
tional statement of a logical IF statement, 
a diagnostic is produced and control is 
returned to the caller. If the program 
type is BLOCK DATA, the data flag is 
checked and control is returned to the 
caller. For all other conditions the 
executable flag and the DO loop level are 
checked. If the DO loop level is nonzero, 
enough end loop PRF entries are generated 
to reduce it to zero. Then the end loop 
for the false loop is generated. If the 
ISD option is on, the false loop is set to 
"unsafe." The no flow flag is checked to 
see if execution flow has been terminated. 
If it has not, a stop PRF item is : 
generated. Finally, an end program PRF 
item is generated and control is returned 
to the caller. ; 


CEKAW -- Declaration Statements, Pass 2 
(DCL2) i 


DCL2 performs the housekeeping opera- 
tions and terminates the processing for the 
following declaration statements: COMMON, 
DIMENSION, EQUIVALENCE, EXTERNAL, NAMELIST, 
COMPLEX, DOUBLE PRECISION, INTEGER, LOGI- 
CAL, REAL, FORMAT, and DATA. 


ENTRIES: DCL2 has two entry points, COMM2 
(CEKAW1) and DCL2 (CEKAW2), neither of 
which has an input parameter. 

EXIT: No output parameters. 

OPERATION: DCL2 sets the program type to 
“main* if it was unknown. In any case, the 
implicit flag is set to 1 before returning 
to the caller. A special entry for the 
COMMON statement also updates the total 
number of named COMMON blocks in the 
storage class table before joining the path 
for other declaration statements. 


CEKAX -- Executable Statements, Pass 2 
(EXEC2) 


EXEC2 performs the housekeeping opera- 
tions and terminates the processing for the 
executable statements. See Chart BH. 
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ENTRIES: EXEC2 has two entry points, FL2 
(CEKAX2) and NF2 (CEKAX1), neither of which 
requires any input parameters. FL2 is the 
entry point for the following statements: 
assignment, ASSIGN, BACKSPACE, CONTINUE, 
END FILE, PAUSE, PRINT, PUNCH, REWIND, 
WRITE, DO, READ, and CALL. NF2 is the 
entry point for the following statements: 
STOP, RETURN, GO TO, and arithmetic IF. 


EXIT: No output parameters. 


OPERATION: EXEC2 has two entry points: 

1. For statements that do not transfer 
control to statements other than the 
ones immediately following them. 


2. For statements that do transfer con- 
trol to statements other than the ones 
immediately following. 


If the logical IF indicator is not on, 
the entry for the second class (above) 
raises the no-flow flag, indicating that 
the next executable statement must have a 
label or there is a logical flaw in the 
source program. The remaining operations 
are common to both entries. 


If the executable statement flag is 
down, it is raised and the program type is 
checked. If the program type is unknown, 
it is set to “main™ before EXEC2 returns to 
the caller. If the executable statement 
flag was up, the fall-through processing 
routine is called to optimize the code in 
case fall-through occurs from any statement 
which causes branching. The logical IF 
indicator is then tested. If it is on, the 
created label for the conditional GO TO 
statement is entered into the PRF. The end 
loop processing routine is called to test 
for and process any end loops. 


CEKBJ -- BLOCK DATA Statement, Pass 2 
(BLDA2) —— 


BLDA2 sets the program type for the 
BLOCK DATA statement. 


ENTRIES: BLDA2 has one entry (CEKBJ1) and 
no input parameters. 
EXIT: No output parameters. 


OPERATION: BLDA2 sets the program type 
code to BLOCK DATA and exits. 


CEKBP -- IMPLICIT Statements, Pass 2 
(IMPL2) 


IMPL2 performs the final housekeeping 
for the IMPLICIT statement after it is 
accepted. 

ENTRIES: IMPL2 has one entry point 
(CEKBP1) and no input parameters. 


62 


EXIT: No output parameters. 





OPERATION: IMPL2 copies the implicit type 
table back from a temporary hold area where 
it was updated by IMPL and sets the implic- 
it flag to 2. 


CEKBT -- Subprogram Entry Statements, Pass 
2 (SUBE2) 


SUBE2 sets the program type code and 
makes the permanent PRF entries for the 
ENTRY, FUNCTION, and SUBROUTINE statements. 
See Chart BI. 


ENTRIES: SUBE2 has three entry points: 
ENTR2 (CEKBT1), FUNC2 (CEKBT2), and SUBR2 
(CEKBT3); none of which has input 
parameters. 


EXIT: No output parameters. 

OPERATION: SUBE2 has a unique entry point 
for ENTRY, FUNCTION, and SUBROUTINE state- 
ments. For the ENTRY statement the number 
of entry points total is incremented. The 
FUNCTION and SUBROUTINE statements set the 
program type code to the appropriate value. 
The remaining operations are performed for 
all three of the possible statement 
entries. 


An end loop for the false loop is 
generated, after which the PRF entry is 
copied from its temporary area into the 
PRF. A new begin loop for a false loop is 
then generated, and the number of alternate 
returns total is updated. 


CEKBV -- CALL Statement, Pass 2 (CALL2) 


CALL2 adjusts the CALL PRF entry to 
insert the statement numbers for the 
alternate returns. See Chart BJ. 


ENTRIES: CALL2 has one entry point 
(CEKBV1) and no input parameters. 
EXIT: No output parameters. 

OPERATION: If the count of alternate 
returns in intercom (TENAR) is zero, a 
normal return is taken. If the count is 
nonzero, the PRF entries for the argument 
definition points and the CALL are moved up 
by the appropriate number of words. The 
statement numbers are then inserted in the 
CALL PRF entry. During the pass through 
the argument definition point PRF entries, 
the FDP fields in the symbol table are 
updated if required. The statement numbers 
are also entered into the cross reference 
list. 


be aE ayy 


CEKBZ -- Statement. Function Sefinition, 


Pass 2 (STFN2) 


STFN2 performs the housekeeping opera- 
tions and terminates the processing for the 
Statement Function. 


ENTRIES: STFN2 has one entry point 
(CEKBZ1) with no input parameters. 


EXIT: No output parameters. 

OPERATION: STFN2 restores symbol table 
class and flag fields of variables which 
were used as statement function arguments. 
It then checks the program type and, if it 
is unknown, sets it to "main." Then STFN2 
returns to the caller. 


CEKAG -- Subscript Processor (SUBS) 


SUBS scans subscripted variables and 
translates the subscript expressions into 
the internal language (Polish notation) 
form. See Chart BK. 


ENTRIES: SUBS has one entry point (CEKAG1) 
with no input parameters. 


EXIT: No output parameters. 
OPERATION: A subscripted variable has the 
form: 


A (Sq ,Sa,-0 7 Sn) 
where: 
S = CytVztCo*tVot...tCntVn 


SUBS expands the subscripts into a single 
expression of the form: 


S*L-LtSo*L*d,-L#d, +...+Sn#L#d,*...*dp_4 
~L*d,* ee -*dn_1 


where: 
L = length in bytes of an array element 
d = ith dimension of N-dimensional array 


Constant terms and like variable terms 
are combined, and the resultant expression 
is translated into Polish notation for out- 
put to the expression representation file 
(ERF). 


SUBS operates in two stages. The first 
stage scans the source, term by term, and 
makes up tentative output terms which are 
stored in an area called TTRM. A subrou- 
tine called TRMPRO checks TTRM and adds the 
contents to a list (TERMS) if it cannot 
combine the new term with one already in 
TERMS. 





The second stage (PUTOUT) translates the 
terms of TERMS into Polish notation and 
puts them in ERF. 


Each tentative output term of TTRM has 
the following format: 


Symbol Table Pointer to 
Variable or 0 


Variable Dimension or 0 


Variable Dimension or 0 


* {f Induction Variable = ULEV; otherwise = 0 wa: 


vee 


Bach entry of a term is one word... The 
number of entries per term is 


NUMDM+1 
where: 
NUMDM = number of dimensions. 
A typical term of subscript S is 
C *V *L#d,*...4d, 4 


The “constant” entry is the product of all 
the constant factors of the term. The 
variable entry is the symbol table pointer 
to V, or to zero if V is missing from 
term. The variable dimension entries are 
symbol table pointers to any of the d (i = 
1, ---, K-1) that are variable. 


Terms of TERMS have the same format as 
TTRM, except that all nonzero entries are 
moved to the top of a term. 


During the course of processing a sub- 
script, branches are made to NEWTRM, SCAN, 
and LOOP within the main loop of SUBS. 


NEWTRM updates the dimension product 
(DMPR) with an entry from dimension table, 
if the entry is a constant: otherwise; 
NEWTRM enters the symbol table pointer of 
the variable dimension in TTRM. NEWTRM 
then branches to SCAN. 
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SCAN puts DMPR in TTRm and calls subrou- 
tine TRMPRO, which adds constant terms to 
offset of array name entry in ERF or pro- 
cesses variable terms as explained earlier. 
SCAN then calls ACOMP (assemble component 
routine) for the next operand-operator 
pair. 


LOOP tests all operators that seperate 
terms in a subscript expression. If a 
right parenthesis is found, LOOP branches 
to PUTOUT. If a comma is found, LOOP 
branches to NEWTRM. If a plus or minus 
Sign is found, TNEG is set accordingly. 
LOOP then calls ACOMP. 


SUBS begins processing by entering the 
array name in ERF. Various flags and coun- 
ters are initialized, and a branch is made 
to SCAN. ACOMP is called, and a subscript 
term put in TERMS. If the term contains a 
loop variable, a new term is generated, 
containing the lower limit of the loop 
variable in place of the loop variable. A 
branch is made to LOOP to check the opera- 
tor. This process is repeated until the 
loop finds a right parenthesis which sig- 
nals end of subscript, and a branch is made 
to PUTOUT. 


If the statement ID is DATA or EQUIVA- 
LENCE, PUTOUT determines that there are no 
entries in TERMS. Otherwise, PUTOUT puts 
the entries from TERMS into the ERF. If a 
term contains a loop variable, the variable 
is entered into ERF ahead of the constant. 
If the statement ID is EQUIVALENCE and 
dimension information from a TYPE, COMMON 
or DIMENSION statement had not yet been 
specified for an equivalence variable, SUBS 
processes each subscript on an equivalence 
variable, and saves the subscript and sign, 
if any, for subsequent processing py EQUI. 


CEKAI -- Expression Processor (EXPR) 


EXPR translates the source language 
expression into the internal language 


(Polish notation) expression. See Chart 
BL. 
ENTRIES: EXPR has one entry point (CEKAI1) 


with no input parameters. 


EXIT: No output parameters. 

OPERATION: Subroutine EXPR is the arith- 
metic and logical expression scanner, and 
produces in the Expression File (EF) the 
internal-language equivalent of a FORTRAN 
IV expression in the source program. EXPR 
Scans expressions on the left and right 
side of equation statements, the condition- 
al expression in IF statements, and the 
subroutine name and argument list in CALL 
Statements. 
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EXPR sees the source language through 
ACOMP (assemble components) which provides 
EXPR with an operand-operator pair (com- 
ponent) each time it is called. 


The internal-language expression is con- 
tained in EF as a string of operators 
(delimiters) and operands in right-hand 
Polish notation. An oversimplified state- 
ment, then, of EXPR's task is "to transfer 
operators from their position between their 
operands to a position following their 
operands." This implies that, in scanning 
over the source expression and putting the 
internal form in EF, an operator must be 
held back during the scanning and putting 
out of its second operand (which may be a 
large expression itself). Two main tables, 
HSTCK and SXS, are used by the subroutine 
largely for just this purpose. Each incom- 
ing operator is placed in the HSTCK until 
required for output. SXS contains informa- 
tion about the operands that have been put 
out. 


To oversimplify again, the syntax of 
algebraic expression requires that opera- 
tors and operands should alternate, as in 
"X*Y+Z". This is reflected in EXPR in that 
the subroutine is always in one of two 
states, controlled by the condition of a 
cell HS. The H state means, roughly, that 
the last item scanned went into the HSTCK 
(i.e., waS an operator) so an operand can 
be expected next. The S state means that 
the last item scanned caused an entry in 
SXS (i.e., waS an operand) so an operator 
can be expected next. Clearly, the scan 
should begin in the H state and end in the 
S state. 


The situation is, in reality, much com- 
plicated by the presence in expressions of 
unary operators (such as the logical nega- 
tive .NOT.), function calls, subscripted 
variables, and parentheses. These compli- 
cations are best described by examining 
EXPR's methods for handling them. These 
methods are variations on, or elaborations 
of, the basic idea. 


The main loop of EXPR begins with a call 
on ACOMP for the next component of the 
source-language expression. The charac- 
teristics of the next component determine 
the processing it receives, after which the 
subroutine returns to the top of the main 
loop to obtain the next component. Some 
objects are illegal if received when the 
subroutine is in the H state; some are 
illegal in the S state; and, a few are le- 
gal in either state, but have their meaning 
determined by the state during which they 
arrive. Each object processed sets the 
state for the next. From this viewpoint, 
there are four classes of objects: H to S, 
those that are legal in the H state and 
leave the subroutine in the S state; H to 
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H, those that are legal in the H state and 
leave the subroutine in the 4 state; S to 

S, those that are legal in the S state and 
leave the subroutine in the S state; and S 
to Hd, those that are legal in the S state 

and leave the subroutine in the H state. 


The two basic classes most easily 
handled by EXPR are H to S and S to HK. The 
other two classes handle the more compli- 
cated situations involving functions 
(except functions as arguments), and spe- 
cial operators (i.e., parentheses, unary 
operators, equal sign, and end of 
statement). 


H to S Class 


Constant: When a constant item is 
received from ACOMP, a constant entry is 
made in EF and SXS with the appropriate 
type. 


Simple Variable: A simple variable is 
processed like a constant. 


Array Variable: When an array item is 
received, the next operator is checked for 
a left parenthesis. If one is not found, 
the array is treated like a simple vari- 
able. If the parenthesis is found, EXPR 
calls the subroutine SUBS, which processes 
the subscript and enters the array variable 
into EF. 


Function as Argument: When a function 
item is received and is not the first item 
of a CALL statement, it may be a function 
used aS an argument to another subprogram. 
The item is accepted as such if the next 
operator is either a comma or a right 
parenthesis, and the top item in HSTCK is a 
comma or semicolon (see function call in "H 
to H Class" below). If the function is 
subject to automatic typing, it is checked, 
and the function name changed, if neces- 
sary, before outputting to EF and SxS. 


S to H Class 


This class contains the comma and ail 
the binary operators: arithmetic, rela- 
tional, and logical. When an item for one 
of these operators is received by EXPR, it 
is compared with the top item of HSTCK. If 
this new item represents an operator of 
lesser precedence than the top item, the 
HSTCK operator is output to fF and is 
appropriately processed. It is then 
removed from the HSTCK, and the new item is 
compared with the new HSTCK top item. This 
process continues until an item of less 
precedence is brought to the top of the 
HSTCK (the bottom of the HSTCK will always 
look like such an item), at which point the 
new item is added to become the top item of 
the HSTCK, unless it is a comma or equal 
sign, in which case it receives special 


treatment. Comparisons include a check for 
illegal pairs. 


Table 13 explains operator precedence 
table, called PRECTAB. The operators that 
appear at the top of each column are the 
new items that can legally come from ACOMP. 
fhe operators that appear at the beginning 
of each row are the items that can appear 
at the top of HSTCK. Indexes to the action 
taken when a new item is compared with a 
HSTCK item are given as elements of the. 
table. The various actions taken are dis- 
cussed after the table. 


S to S Class 


Right parenthesis and end of statement 
(EOS) are the only items which are received 
from ACOMP is the S state and leave EXPR in 
the same state. See Table 13 for further 
discussion. 


H to H Class 


Left parenthesis, -NOT., and unary + or 
- are the only legal operators that can be 
received from ACOMP in the H state. See 
Table 13 for further discussion. 


Explanation of PRECTAB 


DD1: 
Illegal operator pair. 


DD2: é 
New operator has greater precedence 
than HSTCK item. New operator is put 
in HSTCK. 


DD3: 
New ) meets (. Left parenthesis is 
deleted from HSTCK. 


DD4: 
New EOS meets =. This indicates that 
the right side of the equation state- 
ment has been processed. EXPR calis 
subroutine CNVRT, which uses the last 
two entries in SXS and EF to check for 
legal type mix and enters a conversion 
function in EF so that the expression 
type on the right side will conform to 
the variable type on the left side. 
If expression is a constant, it is 
converted to variable type. 


DD5: 
New = meets BOT. This indicates that 
the variable on the left side of the 
equation statement has been processed. 
The equation PRF entry is updated and 
the variable is linked into VDP chain. 
The = operator is put in HSTCK. 


DD6: 
New ) meets BOT. This indicates that 
an IF statement has been processed. 
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DD7: 


New EOS meets BOT. This indicates 
that a CALL statement has been 
processed. 


DD8 AND DD9:. 


DD10: 


DD11 


DpD13 


New , meets ; or ;;. This indicates 
that the first of several arguments 
has been processed. The . is put in 
HSTCK (,, for intrinsic functions). 
Subroutine AARG is called to determine 
if argument should be linked into VDP 
chain. ARG type is put in SXS. 


New , meets , or ,,- This indicates 
that the N*'th argument of a function 
call has been processed. Subroutine 
AARG is called (see DD8) to check 
argument type, increment the argument 
count, and output, or ,, to EF. 


and DD12: 

New ) meets . or ;. This indicates 
that the last argument has been pro- 
cessed (only one argument in function- 
call if HSTCK item is ;. Subroutine 
AARG is called (see DD8 and DD10). 

The correct number and type of argu- 
ments are checked. Functions with 
class LIBA call subroutine LIBN, which 
selects a function name based on the 
argument type. Functions with class 
OPEN A use table FNUM to select a 
function number. The function is out- 
put to the EF followed by a ; or ;; EF 
entry. 


through DD23: 

New operator has less or equal prece- 
dence. This means that the HSTCK item 
is to be output to EF. The HSTCK item 
may be one of the following: 


Unary + or - or .NOT. operator. 
Binary arithmetic, relational, or 
logical operator. 


The unary +, -, and .NOT. are the 
simplest to output. The top item in 
SXS is their operand and is checked 
for legal type; then, the last EF 
entry has its sign changed for unary - 
and .NOT. 


For a binary arithmetic, relational, 
or a logical operator, the top two 
entries in SXS represent its operands. 
In addition to putting an operator 
item in EF, the processing requires 
replacing the two operands in SXS with 
a Single entry for the result of the 
operations. 


The types of the operands are checked 
for legal combinations. The top SXS 
item is deleted, and the next SXS item 
is given a subexpression class with 


DD24: 


DD25: 


DD26: 


the maximum type of the two operands. 
A relational operator is assigned 
Logical*4 type. 


A binary arithmetic operator is also 
checked for constant operands. If 
both SXS operand entries are class 
constant, the arithmetic called for by 
this operator will be done on the last 
two EF entries. The subroutine CNVRT 
does constant arithmetic and type 
checking for binary-arithmetic 
operators. 


If the HSTCK item is a -, .NE.,.LE. 
or .GE., it is changed to a +,.EQ.,. 
GT. or .LT., respectively, and the 
Sign of the last EF entry is changed. 
Then the above processing is done. 


New , or ) meets SF. This indicates 
that an argument of a statement func- 
tion has been processed. EXPR calls 
subroutine SFEXP (at entry point 
SFEXPC) which continues processing the 
statement function expression. 


New ) meets MAX. This indicates that 
all arguments have been processed ina 
MAX/MIN function. The argument type 
is checked and the last MAX operator 
is put in EF. The top three bytes of 
the multiple byte entry for MAX/MIN 
function are deleted from HSTCK. The 
top item of HSTCK is now (, unary -, 
or a conversion function which was 
entered in HSTCK by the function-call 
processing. 


New , meets MAX. This indicates that 
an argument of MAX/MIN function has 
been processed. The argument type is 
compared with the type in HSTCK. If 
this is first argument processed, and 
automatic typing is called for, the 
argument type is put in HSTCK. The 
comma flag is set, and the sign of 
last EF entry is changed if the MIN 
flag is set. The MAX operator is put 
in EF, except after the first 
argument. 


Function/Subroutine Call 


A function call is recognized if one of 


the following conditions exists: 


As 


The item is an external, intrinsic, or 
library function with the next item a 
left parenthesis. Six bytes are added 
to HSTCK. Bytes 1 and 2 contain Sym- 
bol Table pointer to function entry. 
Byte 3 contains type of arguments 
observed. Byte 4 contains number of 
arguments observed. Byte 5 contains 
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flag for argument definition PRFs (set 
to 1 if abnormal function). Byte 6 
contains semicolon operator. 


For external functions, the ABN flag 
is set in the PRF entries for IF and 
equation statements. This flag is 
used by Phase 2 to find common defini- 
tion points. EXPR then calls ACOMP 
for the next component. 


The item is the first item of a CALL 
statement. The subroutine flag is 
raised in the symbol table, and the 
function is handled the same as case 1 
if the next item is a left parenthe- 
sis. If the next item is EOS, the 
function is entered in EF as a no- 
parameter function. 


The item‘s class is “unknown” or 
"unknown function" and the next item 
is a left parenthesis. EXPR calls the 
subroutine FNCLS, which determines the 
class of the function (OPEN, OPENA, 
external, LIB, LIBA, or MAX). FNCLS 
sets the function flag and appropriate 
class in the symbol table and returns 
to EXPR. If the function class is 
external, library or intrinsic the 
function is processed like case 1. If 
the function is a member of the MAX- 
MIN family, it is processed as 
described in case 4. 


The item is a member of the MAX-MIN 
family. Members of the MAX-MIN family 
require special treatment. They are 
interpreted not as functions, but in 
terms of a new operator, MAX, which is 
like + in that it takes two operands 
and has its type determined by the 
type of its operands. MIN is ex- 
pressed by changing the signs of MAX 
and its operands. A conversion func- 
tion is entered in HSTCK per case 1, 
if needed; otherwise, a left parenthe- 
sis is put in HSTCK. Either of these 
HSTCK items will correctly terminate 
the MAX function processing after the 
last argument has been processed. A 
unary - is then put in HSTCK if func- 
tion is MIN. This will negate the 
last MAX operator in EF. The next 
HSTCK byte contains two flags: a MIN 
flag (set if MIN function), and a 
comma flag (set after first argument 
processed). The next byte contains 
argument type required by function (FS 
if automatic typing). The top byte 
contains the operator MAX. EXPR then 
calls ACOMP for the next component. 


The item is a statement function. 

EXPR calls the subroutine SFEXP (at 
entry point SFEXPI), which initializes 
and controls the statement function 
processing. EXPR'sS machinery is used 


OPERATION : 
“operands in SXS, SXS(J) and SXS(J+1), are 


_ais = or +, 7/7, 


to process the statement function 
arguments. 


CEKAN -- Conversion Subroutine (CNVRT) 


CNVRT converts constants to new type, if 
specified, and checks legal type mixes for 
arithmetic and logical expressions, and 
across the equal sign in assignment state- 


ments. See Chart BM. 
ENTRIES: CNVRI has two entry points: 


CNVRT (CEKAN1), which is called by EXPR to 
perform all functions mentioned above, and 
CNVRTD (CEKAN2) which is called by IVAL and 
is concerned only with converting constants 
to the type of the variables into which 
they will be stored. 


Input Parameters: 


P2 -- Variable Symbol Table Pointer 
(CNVRTD entry only) ; 

P5 -- HSTCK address (CNVRT entry only) 

P6 -- SXS address (CNVRT entry only) 


EXIT: P5 contains the HSTCK address, and 
P6 contains the SXS address. 


The types of the top two 


compared by using the table CNVTAB, and 
appropriate action is taken. The action 
taken depends on whether the top HSTCK item 
* or **, 


If the HSTCK item is =, then SXS(J) is 
the operand on the left side in an assign- 
ment statement or a variable of a DATA 
statement, and SXS(J+1) is converted to the 
type of SXS(J), if they are different. If 
SxS (J+1) is a constant, CNVRT converts the 
constant, and files the new constant in the 
symbol table and EF. If SXS(J+1) is not a 
constant, the appropriate conversion func- 
tion is entered in EF. Symbol table and EF 
entries are not made for DATA statement. 


If the top HSTCK item is an arithmetic 
operator (except**), the two operands are 
checked to see if they are constant. If 
just one operand is constant, it is con- 
verted to the maximum type of the two, if 
different. If both operands are constant, 
one is converted to the maximum type, if 
different, and subroutine ARITH is called. 
It combines the constants according to the 
HSTCK operator. The new constant is filed 
in the symbol table and EF. A special case 
occurs if the operand types are R*8 and 


c*#8. The maximum type in this case is 
C*#16, and all constants are converted to 
this type. 


There are three cases to consider if the 
HSTCK item is: 


1. Both exponent and base are constant. CEKBK -- Statement Function Definition 


(SFDEF) 
2. The base is a real or integer variable 
and the exponent is an integer con- SFDEF enables EXPR to translate a state- 
stant in the range 0 through 16 for ment function expression into Polish nota- 
integer base, or -16 through +16 for tion and to store the translated expression 
real base. in the statement function expression file 


(SFEF). See Chart BN. 


3. Neither of the above cases. 
ENTRIES: SFDEF has one entry point 





For case 1, the subroutine ARITH is (CEKBK1) with P5 = HSTCK(I) address and P6 
called and constant arithmetic is = SXS(J) address as input parameters. 
performed. 

For case 2, a series of one or more spe- EXIT: PS contains the HSTCK address, and 
cial open functions are entered in the EF P6 contains the SXS address. 
from a table called EXPF (Table 14). This, 
in effect, causes the power to be expanded OPERATION: SFDEF scans the argument list 
as a series of products of the base multi- and temporarily changes the class and flag 
plied by itself. Another special open fields of all symbol table entries whose 
function (RECIP) is also entered in EF, to names are the same as the dummy arguments. 
take the reciprocal of the power if the The class is changed to “statement function 
exponent is negative and the base is real. argument” and the flag field to contain an 

offset to be used in locating the argument 

For case 3, the subroutine LIBN is in ARGSTCK (see SFEXP routine). These 
called (at entry point LIBNX) which selects fields are restored after EXPR finishes 
the appropriate exponential library func- scanning the expression. In scanning the 
tion. Upon return from LIBN, the function argument list, SFDEF checks for legal argu- 
is entered in the EF. ments and maximum number of arguments: 


Table 14. EXPF Entries (Real Base) 


oo. a ee ee ee 1 
| Exponent | Entries | 
pS -Se Ss f= fo = SS Tosa Ss | es fat SSas= —o Ss jose Tore sess 4 
| 2 | SQ | #7 | Term. | | | | | | | 
[-------------- $------- $------- 4------- 4------- 4------- $+-—----- +-~----- }------- }-------- { 
| 3 | cube [| 7 + | Term. | { | | { | | 
| ------—---—---}-------}-------4-----—— 4------- 4------- $------- $------- }------- }-------- { 
| 4 | SQ 1 #7 | SG | ¢ ¢@ | Term. | { | | | 
}------—-------4-------}-—----- 4------- 4-------}-------4-------4-------}-------$-------- 
| 5 | FIFTH | +; ¢ | Term. | | { | | | | 
|----------—---4------- $-—---- $------- $-------}-------}------- }------- }-------}-------- { 
| 6 {| so | 3 ¢ | Cube | : 3 | Term. | | | i | 
}--------------4-------4----—--4-------}------- }----- f= -- ff fd 
| 7 | SEVEN {| ; + | Term. | { | | | { { 
[--------------}-------}-------4------- ~-----4-------}-------4-------4-------4-------- 
{ 8 | SQ {| ¢¢% {| Se | ¢ # | SQ | #7 # | Term. | | | 
}-------~------4-------4-------4 -------f —-----}----- =f --- =f ff 
| 9 | Cube | 3; 2 | Cube | : ¢ | Term. | | | { | 
|--------------4---~---}-------4-------}-------}-------}-------}------------—- f--------4 
| 10 {| sQ | : 3 | FIFTH | : 3 | Term. | | | | | 
manana === = =f af =f fn nnn nnn nf nf nnn nf fd 
i 11 | 42 | * * | Term. | | | { | | | 
|------—-------}--------------} -------------- 4 -------}------- 4 -------}------- f------ =f 
{ 12 { SQ | 7 7 | SQ 1 #7 ¢% | Cube | ; 3 | Term. | { | 
[-------------- 4-------}------- $------- $-------4------- 4} ------- 4 -------4 ------- 4 -------- 
| i3 | 13 i * * | Term. | { | | \ | | 
}------—------- 4------- $------- }------- }------- }-------}-------4------- $------- }-------- { 
| 14 {| SQ | 7 ¢ | SEVEN | ; 3 | Term. | | | | | 
|-------------- $------- {------- $-------4------- ------- $------- $------- $------- {-------- { 
| 15 | Cube | : 7 | FIFTH | : 3 | Term. | | | | | 
}------—------- }------- }------- +------- $------- $------- $------- $------- $------- }~------- { 
| 16 | SQ | + 3 | SQ | ; ¢ | SQ | z 7 { SQ | ; 3 | Term. | 
joes ee teresa tee bien eed ol hh ld] 
|The base type is attached to semicolon entries. | 
a a a as Ne aaa ue a 4 
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After completion of argument scanning, 
SFDEF alters the EF pointer and base, so 
that EXPR will enter the expression into 
SFEF. SFDEF then returns to EXPR, which 
processes the statement function expres- 
sion. Upon completion of expression pro- 
cessing, the EF pointer and base are 
restored. 


CEKBL -- Statement Function Expansion 
(SFEXP) 


SFEXP inserts a statement function 
expression into EF when the function is 
referenced in arithmetic or logical expres- 
Sion, and uses EXPR to process the actual 
arguments. See Chart BO. 


ENTRIES: SFEXP has two entry points: 
XPI (CEKBL1) and SFEXPC (CEKBL2). The 
input parameters are P5 = HSTCK(I) address 
and P6 = SXS(J) address. 


SFE- 


EXIT: P5 contains the HSTCK address, and 
P6 contains the SXS address. 





OPERATION: There are two entry points to 
SPEXP: SFEXPI, which is the entry.to the 


initializing portion, and SFEXPC, which is 
the entry to the expansion portion. 


The initializing part scans the argu- 
ments and stores a pointer to the first 
character of each argument in the source 
Statement. It also stores a pointer (SFEP) 
to the function expression in SFEF, and a 
pointer to show EXPR where to resume scan- 
ning the source after the statement func- 
tion has been expanded. These pointers are 
stored in a portion of the SFEF called 
ARGSTCK. An “SF* item is entered in HSTCK, 
which enables EXPR to process the function 
arguments one at a time. After the ini- 
tializing is complete, SFEXP begins expand- 
ing the function by entering SFEF entries 
into EF, uSing SFEP as a pointer. Whena 
statement function argument entry is found, 
the offset of this of this entry is used to 
obtain the correct argument pointer from 
ARGSTCK. This pointer is stored in SOURCE, 
and SFEXP returns to EXPR, which processes 
the argument. When a", " or “")" meets the 
"SF" item in HSTCK, the argument has been 
processed and EXPR calls SFEXP (via SFEXPC 
entry). SFEXP checks the actual argument 
type with the dummy argument type. If the 
type is correct, SFEXP resumes transferring 
SFEF entries to EF until another argument 
entry is found. This cycle is repeated 
until an end of expression entry is found 
in SFEF. This terminates expansion, and 
SFEXP returns to EXPR with the SOURCE 
pointer set to scan the remainder of the 
Statement following the statement function 
reference. 
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CEKBX -- Function Classifier (FNCLS) 


FNCLS determines the proper class of a 
function whose class was originally 


"unknown" or “unknown function." See Chart 
BP. 
ENTRIES: FNCLS has one entry point 


(CEKBX1) and no input parameters. 


EXIT: No output parameters. 


OPERATION: A function with "unknown" or 
"unknown function" class is assigned one of 
the following classes: LIBA, LIB, OPEN, 
OPENA, MAX, or external. 


If the function name is found in the 
LIBA name list (library function with auto- 
matic typing) and its type is not frozen, 
it is given LIBA class. If its type is 
frozen, then it is classed external. 


If the function name is found in the LIB 
name list, and its type is not frozen or 
its type is the same as the library func- 
tion, then it is classed LIB. If the type 
is different, it is classed external. 


If the function name is not in the LIBA 
or LIB name lists and its class is unknown 
function (i.e., delcared in an EXTERNAL 
statement), it is classed external. 


If the function is in the intrinsic 
function name list (includes OPEN, OPENA, 
and MAX class functions), and its type is 
not frozen or its type is the same as the 
intrinsic function, then the symbol table 
name part of the function is linked to the 
intrinsic function descriptive part. If 
the function type is different, it is 
classed external. 


If the function name is not found in any 
of the three lists, LIBA, LIB, or intrin- 
sic, it is classed external. 


CEKBY -- Library Function Selector (LIBN) 


LIBN selects the appropriate library 
function name, based on the argument type. 
See Chart BQ. 


ENTRIES: There are three entry points: 
LIBN (CEKBY1), LIBNA (CEKBY2), and LIBNX 
(CEKBY3). P = SXS(J) address is the input 
parameter. 


EXIT: P6 contains the SXS address. 


OPERATION: LIBN has three entry points, 
LIBN, LIBNA, and LIBNX. LIBN and LIBNA are 
the entry points for functions with auto- 
matic typing. LIBNA is tne entry for auto- 
matic functions being used as arguments. 
LIBNX is the entry point for exponential 
library function selection. 


Using the argument type and the function 
index, the proper function name is selected 
(see Table 15). The function name is 
inserted in the symbol table, and the 
descriptive part entries filled if class is 
unknown. 


Table 15. Library Function Names 

2S Te ee ee 
(Automatic| Argument Type | 
| Function }--~----+ rere T.-C -T.- 
| Name } R*O | R*¥8 | C#B8 | C¥1E6 | 
[---------} -—---—- $ ---—---} ------- ------- 
| EXP | EXP | DEXP | CEXP |CDEXP | 
[---------}-------4---~---}-------4------4 
| LOG } ALOG | DLOG | CLOG |CDLOG | 
pon nn nf nnn np 
{| LOGIO | ALOGIO] DLOGIO| CLOGIO|CDLOGIO| 
~-----—----------------}-------4------4 
| ATAN | ATAN | DATAN | 0 ; 0 | 
~-----—--}-------}-------}-------4----—- 

| SIN {| SIN | DSIN { CSIN |CDSIN | 
| ------—--}-------}----—--}-------}-------+4 
{ cos { cos | DcOS | ccos j|cDCcCOS | 
meee i fe ef 

| SORT | SORT | DSORT | CSORT |CDSORT | 
}--~—--—--} --~----f -------} ------ -----—- 
| TANH | TANH {| DTANH | 0 | 0 | 
eae ene eM a eS 

| Implicit Exponential Functions | 
Seta yp -- + ---------- - +--+ +------| 
| Base { Exponent Type | 
i Type  |------- oo os oS 

} <I*2 | %Ir*4 | RH | R*¥B | 

|------—--}-------}-------——-----4------- 
| I*#2 | FOXPJ | FIXPI | FIXPR {FIXED | 
p------~--} ------- }} -------} ------- +------ + 
| #4 | FIXPS | FIXPI | FIXPR |FIXPD | 
[~-----—--}-------}-------}-------}------- 
| R*#4 | FRXPJ | FRXPI | FRXPR |FRXPD | 
|---------}-------}-------}-------}------ 

| R*8 | FDXPJ | FDXPI | FDXPR |FDXPD j| 
~-----—-}—-----}-------4-------}----—-4 
{| c#8 | FCXPJ | FCXPI | o | O° | 
}----—--- 4------- $------- 4------- $-----~-4 
{| c*16 | FCDXJ | FCDXI {| oO |f O | 
Hee ee 
CEKCB -- Constant Arithmetic Subroutine 
(ARITH) 


ARITH performs all constant arithmetic. 
See Chart BR. 


ENTRIES: ARITH has one entry point 
(CEKCB1) with input parameters as follows: 


EXIT: 


P2, P3 -- Integer Constants 
FO, F2 -- Real Constants 
FO, F2 -- Complex Constants of 
type C*8 
FO thru F6 -- Complex Constants of 
type C16 
EXIT: No output parameters. 


OPERATION: If the operator is **, the 
appropriate FORTRAN library function is 
called, based on the type of the base and 
exponent. If the operator is +, *, or /, 
ARITH does the arithmetic necessary based 
on operator and operand type. 


ARITH may be called upon to perform 
arithmetic which will cause overflow or 
divide check exceptions to occur. In order 
to diagnose these situations properly, sys- 
tem macro SIR is called to enable module 
CEKCS to trap these interruptions and set 
appropriate flags. Prior to exit, system 
macro instruction DIR is called to disable 
these interruptions. 


CEKCG -- Term Processor (TRMPRO) 


TRMPRO processes a tenative subscript 
term prepared by SUBS and either combines 
it with a previous term or adds it to the 
TERMS list. See Chart BS. 


ENTRIES: TRMPRO has one entry point 
(CEKCG1), with the address of TTRM and 
TERMS in P5 as input parameter. 


EXIT: There is a single output paramet er: 
the address of TERMS in P5. 


OPERATION: If the tentative term has no 
variable factors, its constant factor is 
combined with OFFSET. If the tentative 
term has the same variable factors as a 
previous term already in TERMS, the terms 
are combined by adding their constant fac- 
tors. Otherwise, the tentative term is 
added to TERMS as a new term. 


TRMPRO checks for too large a subscript 
expression. 


CEKCR -- Actual Argument Service Routine 
(AARG) 


AARG performs certain functions in con- 
nection with actual arguments of function 
and subroutine calls. See Chart BT. 


ENTRIES: AARG has one entry point (CEKCR1) 
and two input parameters: the address of 
last HSTCK entry in P5, and the last SXS 
entry in P6. 


P5 contains the address of HSTCK, 
and P6 contains the address of SxS. 
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OPERATION: AARG puts an argument defini- 
tion entry in the PRF for a variable as 
argument of an abnormal subprogram. If 
this is not the first argument (comma flag 
up), the type is checked and a comma (,) or 
double comma (,,) operator is put out to 
the EF. 


CEKCS -- Constant Arithmetic Interrupt 
(CHKINT) 


CHKINT provides for treatment of inter- 
ruptions from ARITH and sets flags for 
issuance of a proper diagnostics. See 
Chart BU. 


ENTRIES: This routine is called by the 
standard linkage convention. There are 
three entry points: 


CEKCS1 -~- Set flag for divide 
check interruptions 
CEKCS2 -- Set flag for exponent 
overflow interruptions 
CEKCS3 -~ Return flags 
(CHKINT) to caller 


Entry CEKCS3 returns the interruption 
flags to the fields specified in the param- 
eter list, which is one word long and con- 
tains the address at which to store the two 
flag words. No other input or output pa- 
rameters are used. 

EXIT: No output parameters. 

OPERATION: The CHXINT routine is called by 
ARITH to enable and disable CEKS, for 
fielding of exponent overflow and divide 
check interruptions during constant arith- 
metic. Any interruptions due to divide 
checks or exponent overflow cause the sys- 
tem interruption processor to enter CHKINT 
at entries CEKCS1 or CEKCS2, where a flag 
will be set, indicating that an interrup- 
tion has occurred. On an exponent over- 
flow, the contents of the R1 register in 
the ISA save area is set to infinity before 
exiting. 


This routine is called at entry CEKCS3 
by EXPR after a complete expression has 
been processed, to see if any of the above 
interruptions occurred. 


CEKAB -- Extract Source Character (ESC) 


ESC is used to obtain the next source 
character. See Chart BV. 


ENTRIES: There are two entry points: ESC 
(CEKAB1) returns the next nonblank source 
character; ESCB (CEKAB2) returns the next 
source character, including blanks. One 
input parameter, the address of the next 
available character in the source string, 
is passed by value in parameter register 
P3. The high-order 24 bits of parameter 
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register P1 are expected to be zeros. This 
routine uses only registers P1, P2, and P3. 
The contents of any other registers except 
the linkage registers are not destroyed. 


EXIT: Output parameters are: 
1. Original source character, in register 
Pl. 


2. Internal code source character, in 
register P2. 


3. Updated source pointer, in register 
P3. 


OPERATION: Input source data stored in the 
compiler intercom region is transmitted to 
the requesting routine, one character at a 
time. As each source character is 
extracted from the source input data, a 
translation is made from either EBCDIC or 
BCD character codes. This translated 
character set is a dense set value and is 
used for identification purposes only. The 
original character set is used for variable 
names in the symbol table and preset data 
in the object program. Values of the dense 
set are as follows: | 


Character Dense Code 


WBN NOE WHR OS 


KM EQCCHNDONOSZSEBMAYHOADAMONDPODIWNUNFWHRPO 
- 
~ 





Z 35 
$ 36 
Blank 37 
+ 38 
~ 39 
/ 40 
* 41 
(Not Used) 42 
) 43 
7 44 
= 4S 
( 46 
EOS 47 
‘ 48 
‘ 49 
(Not Used) 50 
& 51 
CEKAE -- Assemble Components (ACOMP) Figure 17. Component Storage Area 
ACOMP assembles source characters into Legend for Figure 17 
basic components for syntactical analysis. 
See Chart BW. Field Description 
cID Component ID: 
Null = 0 
ENTRIES: ACOMP has one entry point Variable = 1 
(CEKAE1) with no input parameter. Constant = 2 
Label = 3 
EXIT: No output parameters. ; CTYP Operand Type Code in Hexadecimal 
Unknown = 00 
Integer *2 = 12 
OPERATION: Each request for next com- Integer *4 = 32 
ponents returns an operand and the operand Real *4 = 33 
delimiter. The possible operand types are Real ¥*8 = 73 
variable, constant, label, and null. The Complex *8 = 74& 
delimiter may be any of the arithmetic, Complex #16 = F4 
logical, or relational operators, the right Logical *1 = 01 
or left parenthesis, the comma, the end-of- Logical *4 = 31 
statement, or the label terminator Literal = 02 
delimiter. 


CFLG Flags 


The assembled elements are placed in the CLNG Length of CVAL in bytes 


component storage area of intercom (see (maximum = 256) 
Figure 17). Source characters, both origi- 
nal and converted forms, are acquired by CSTP Symbol Table Pointer for Operand 


request to the extract source routine. The 
converted internal code is used as an index CHSH Variable Hash Total 
into the assemble components character 


table (see Table 16). By branching upon CDLM Component Delimiter Code 
the value derived from the components + = 0 
character table, using the decision table - = 1 
status as the base, the appropriate action / = 2 
may be effected (see Table 17). * = 3 
** = 4 
) = 5 
As variables are assembled, a symbol ; = 6 
table hash index from the variable hash = = 7 
table is derived for use by INVST in filing ( = 8 
the name in the symbol table. EOS = 9 
-LT. = 10 
-LE. = 11 
As constants are assembled, their type -EQ. = 12 
is determined and appropriate filing rou- -NE. = 13 
tines invoked. -GE. = 14 
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-GT. = 15 

-NOT. = 16. 

-AND. = 17 

-OR. = 18 

a = 19 (Label Delimiter) 
CVAL Component Operand -- Value or 

Name 

Table 16. Assemble Components Character 

Table 
aa -+ + -~ -- -- +--+ + +--+ -- -- - = -- = - +--+ - 7} 
| Internal Code | Component Code | 
}--~-------------------------------------4 
| 0 | 1 | 
I 1-9 { 2 | 
| A-$ | 0 | 
| + | 4 | 
l be | 5 | 
| $ | 6 | 
| : 3 | 
| : { 7 | 
| & | 8 | 
| 47 = () , EOS | 9 | 
| Others | 10 { 
a es er SU ate ee a caf 
CEKCH -- File Real Constant (FLRC) 


FLRC files real and complex constants in 
the symbol table. See Chart BX. 


ENTRIES: FLRC has one entry point (CEKCH1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: FLRC calls FCNV to convert the 
constant to floating binary. If the con- 
stant is not part of a complex constant and 


the “don't file” flag is down, the constant 
is filed in the symbol table. 


If the constant is the real part of a 
complex constant, the value is saved and 
the routine returns to the caller. If the 
constant is the imaginary part of a complex 
constant, the real and imaginary parts are 
combined as a single constant. If the 
"don't file™ flag is down, the real and 
imaginary parts are also filed in the sym- 
bol table. 


Appropriate diagnostics are generated if 
the types of the two parts of a complex 
constant do not agree. The parts are made 
to agree with the larger type. 


CEKCI -- Insert Variable in Symbol Table 
(IVST) 


IVST finds or makes a symbol table entry 
for an alphameric name. See Chart BY. 


ENTRIES: IVST has one entry point (CEK- 
CIi), with no input parameters. 
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EXIT: No output parameters. 

OPERATION: IVST uses the name haSh value 
to select a chain anchor in the variable 
hash table. If the chain is not empty, the 
chain entries are searched for one with the 
present name. If the chain is empty or an 
entry is not found, a new entry is made for 
this name and added to the chain. The sym- 
bol table descriptive part pointer for the 
found or made entry is set in CSTP. 


CEKCN -- Decimal to Binary Integer 
Conversion (ICNV) 


ICNV converts a decimal integer to a 
binary integer. See Chart BZ. 
ENTRIES: ICNV has one entry point (CEKCN1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: ICNV performs the conversion by 
extracting the digits from left to right, 
multiplying the intermediate value by 10 
for each digit, and adding that digit to 
the intermediate value. A maximum of 16 
digits is allowed, and the result is a dou- 
bleword binary integer. The first word of 
the result is placed in the second word of 
CVAL, and the second word of tne result is 
placed in the first word of CVAL. 


CEKCP -- Decimal to Floating Binary 
Conversion (FCNV) 


FCNV converts a decimal constant to 
floating binary. See Chart CA. 


ENTRIES: FCNV has one entry point (CEKCP1) 
and no input parameters. 

EXIT: No output parameters. 

OPERATION: FCNV calls ICNV to convert the 
decimal digits to a binary integer. This 
integer is then converted to floating point 
and normalized. The number is then scaled, 
to account for the exponential and frac- 
tional portions. Appropriate diagnostics 
are generated if the exponent and magnitude 
ranges are exceeded. 


CEKCQ -- File Integer Constant (FLIC) 


FLIC files integer constants in the sym- 
bol table. 


ENTRIES: 
(CEKCQ1). 


FLIC has one entry point 


EXIT: No output parameters. 

OPERATION: FLIC calls ICNV to convert the 
constant to integer binary. If the “don't 
file” flag is down, the integer is then 


wondede 
he git WY 


Table 17. Assemble Components Decision Table 


Gq A Pp RF 


n 


Ca ne a Ne De re ee Re ee a ee eg ae Be ee ne Bee Se ae ee re ee Ree gage ed 
| | | | ] | | | | | [EOS [Non | 
| Code | A-S | O fF 1-9 | «© | + | - | * JF * | & J[7=C,) [FORTRAN | 
go —f =f =f $------$----—- f------ f------ $------}-------4 
{s cl a | 1 2 | 3 «| 4 | 5 | 6 | 7 | 8 | 9 | 10 | 
f---—S}-----f------ 4 ------ = ff $------}-—-—--}------- { 
i of Ad od.t{t F | I 4 2 | ZB | 2B fT AD ft ac | 2 E | 
}---—-4------4------f —---4------4-----— $------+-—---- $------ $------ $------+------- { 
) a4 Bod BB OP ve) ee ee RE ce te 
[--——--}------ ------ 4 ---_--$----- —f—----$------f------}------}---—------ -------] 
f 21 6] opt FIvidj @t #f]c}t BE] Bt HY] £ | 
| ---—-- ------}---- -t -----4 ------}------f------}------f ------f =f ff 
i 3 {| G | FF | FF {| vf at #Ba{cet} Ft £E| Hf{ Eg | 
f------4------$------¢ -—-—--------- ------ ff ff 
1 tf os] mMtumeti EJ EL BE] Et E] EL Ef £ | 
f---—--}------}------ ------------ $------ $-—---- $------}------}------ $------ $-------4 
1 s | Kl Ef EL pt BE] EL EE] EL Bf Et ée { 
a ee $------ 4------ f------ 4-—----4------}-----------}------+- -----| 
| 6 | wt m | m | s | Tf] T{cf EY Ef TY] E | 
f---—--}--—---}------f --------------—- f----- = ---f =f ff 
| 7 | E | Oo | Oo | E | P | Q | E | E | E | E | E | 
p---—--}------------ 4 —--—------------f- ----- fff 
| @ | ET of of EL EY] EJ] Et EL] EJ Ef £ | 
}---—--}------}------} ------} -----} —---------}----—-$------ $------4------}------- { 
i 9°) Bf Rk | RB | 8 [| f 1 fl cel, Ee ft Ek fl ee 
p---——-$ -----4 ----- —----f---- ff - —-f pd 
f 10 | E | Ef Ef S [| f | TF | cco | EF EY TY £E f 
f---—--$ —----$---- fF —--- =f ----- f = fffnp nn p nnn 
la | x] £€f EY BE] BI] Et Et] BIL Bf EBEI*e | 
[---——-$-----------4+----- a 
{| 12 | Ww | M si 1 a | Ss | T | ©. 4 oC. E | E | T | # #&£E | 
f---—-------$-----------------------------f-----}------} ------f------ $-------4 
' 13 | E { E | E | AB ft 2 | 2 | we | E [| Ef 2 ft EB f 
~ f= === f= ff ft tf 
fmt ¥ | of of EY] Pt Ot] BEL EL BE] Et E£ | 
f---——-}------}------} -----}------f ----- f------ f= ---- fff 
{| 15 | ay | ay | ay { AY | ay [| AY | aY | AX | AY | ay | ay f{ 
[---—-4------} ------4 ------4------f ---- 4 ------f --- == =f ----}-------4 
| 16 {| AT | AT | AT {| aT | AT | av | AU | aT | AT | aT [{.- E | 
pop ff fp nf nnn nnn nnn fn nnn fn nnn fn nnn { 
{ 17 | E | E | E | E | AV {| AV { AV | E | E | av | E | 
———-$------4----—- i a a | 
i118 | E£ | E£ f{ §E | Af 2at{t 24224 Bf EF 2 | E { 
t-~-_—-__41—_-_--i-_____4______4___-_ 4d ES 4-4 


filed in the symbol table. A diagnostic is loop. Calls are then made on subroutine 


generated if the constant exceeds 234-1. CKLIM to acquire, analyze, and appropriate- 
ly code the lower loop limit, upper loop 
CEKBA -- Begin Loop Processor (BGNLP) limit, and the loop increment, if present. 
If the loop increment is not given, the 
BGNLP analyzes and encodes the begin pointer for integer 1 is supplied. A non- 
loop information for the DO statement and source label is created and filed in the 
for implied loops within an I/O list. See Symbol Table for the loop top, and the 
Chart CB. begin loop PRF entries are generated. 
ENTRIES: BGNLP has one entry point (CEK- Appropriate diagnostics are printed if 
BA1) and no input parameters. any source errors or incongruities are 
encountered. 


EXIT: No output parameters. 


OPERATION: BGNLP begins by making a call CEKBB -- End Loop Processor (ENDLP) 

on ACOMP to acquire the induction variable 

for the loop. If the characteristics of ENDLP encodes the end loop entries for 

the induction variable are satisfactory, explicit loops specified by a DO statement 
flags are set to indicate the special use and for implied loops within an I/O list. 

of this variable for the duration of the See Chart CC. 
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ENTRIES: ENDLP has one entry point 
(CEKBB1) and no input parameters. 
EXIT: No output parameters. 

OPERATION: The end loop PRF entry is 
generated, and successive calls for the 
four loop parameters are made on subroutine 
CLLIM. If the loop parameter is a vari- 
able, CLLIM determines whether this is the 
lowest loop in which it is active. If it 
is, CLLIM clears the symbol table flags and 
indicators which distinguish the variable 
for the duration of a loop. 


CEKCJ -- Check Limits (CKLIM) 


CKLIM checks DO loop parameters for 
validity. See Chart CD. 


ENTRIES: CKLIM has one entry point 
(CEKCJ1) and one input parameter: symbol 
table pointer to loop induction variable in 
Pl. 
EXIT: No output parameters. 

OPERATION: For each lower limit, upper 
limit, and increment of a DO statement or 
I/O loop, CKLIM verifies that the limit is 
either a variable or constant integer. For 
a variable the symbol table entry is marked 
to indicate the level of end loop at which 
the unredefinable property of a loop limit 
should be terminated. 


CEKCK -- Clear Limits (CLLIM) 


CLLIM removes information from the sym- 
bol table entries for loop parameters at 
the loop end. 


ENTRIES: CLLIM has one entry point 
(CEKCK1) and one input parameter: symbol 
table pointer to loop parameter in P2. 
EXIT: No output parameters. 

OPERATION: For a variable loop parameter, 
if the loop being ended is the outermost 
loop in which this variabie is a parameter, 
CLLIM clears the ULEV field and lowers the 
“must not be defined" flag in the variable 
symbol table entry. 


CEKBW -- I/O List Processor (IOLST) 

IOLST analyzes and encodes the list ele- 
ments for READ, WRITE, PRINT, and PUNCH 
statements. See Chart CE. 


ENTRIES: IOLST has one entry (CEKBW1) and 
no input parameters. 


EXIT: No output parameters. 


76 


OPERATION: IOLST makes two scans over the 
list elements. The first scan detects and 
codes the presence of any implied loops. 
The second pass classifies the variables 
(if required), generates the EF and PRF 
entries, and generates the begin and end 
loop entries, as required. The I/O trans- 
mission and end transmission library rou- 
tine entry names are filed in the symbol 
table and marked as class external. 


Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 


CEKCD -- Format Label Processor for I/0 
Statements (FLABL) 


FLABL processes a FORMAT statement num- 
ber, as used in an I/O statement. See 
Chart CF. 


ENTRIES: FLABL has one entry point 
(CEKCD1) and no input parameters. 


EXIT: No output parameters. 

OPERATION: FLABL checks the label, files 
it in the symbol table, and fills in the 

LABF field in the PRF entry being built. 


CEKCE -- Read Transfer Processor for I/0 
Statements (RTRAN) 


RTRAN processes ERR and END labels, as 
used in I/O statements. See Chart CG. 


ENTRIES: RTRAN has one entry point (CEK- 
CE1), with no input parameters. 

EXIT: No output parameters. 

OPERATION: RTRAN performs the necessary 
checking and sets the PRF entry fields for 


the error (ERR) and end of file (END) con- 
dition transfer labels. 


CEKCF -- FORMAT or NAMELIST Name Processor 
(FNAME) 


FNAME processes variable FORMAT designa- 
tors or NAMELIST names, as used in I/0 
statements. See Chart CH. 


ENTRIES: FNAME has one entry point 
(CEKCF1), with no input parameters. 
EXIT: No output parameters. 

OPERATION: For a namelist name FNAME sets 
the ID and LABN fields in the PRF entry 
being built. For a variable FORMAT, FNAME 
sets the LABF field. 


CEKAH -- Initial Value Dare Specification 
Processor (IDATA) 


IDATA analyzes and encodes initial value 
data for the type (integer, real, complex, 
and logical) and DATA statement processors. 
See Chart CI. 


ENTRIES: IDATA has two entry points, TDATA 
(CEKAH1) and DDATA (CEKAH2), for calls by 
the type and DATA statements processors, 
respectively. The input parameter for 
TDATA is a symbol table pointer for the 
variable in parameter register P2. The 
input parameters for DDATA are a parameter 
list address in parameter register P2 and 
the number of items in the parameter list 
as fullword, right-justified binary value 
in parameter register Pi. The parameter 
list is made up of 2-word items. The first 
word is a symbol table pointer, and the 
second word is a fullword offset value. 


EXIT: No output parameters. 

OPERATION: IDATA has two entry points, one 
for calls by the type statements and one 
for calls by the DATA statement. After 
initialization, each entry point calls on 
internal subroutine IVAL, which processes 
the actual value specifications. 


Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 


CEKCL -- Initial Value Processor (IVAL) 


IVAL processes constants used as initial 


values in Type or DATA statements. See 
Chart CJ. 
ENTRIES: IVAL has two entry points, IVAL 


(CEKCLi) and IVAL1 (CEKCL2). Input parame- 
ters are the symbol table pointer of vari- 
able in P2 and the current preset data top 
in P6é. 


EXIT: Output parameters are 
PS = 0 if constant not entered into data 
table 
= 1 if constant successfully entered 
into data table 
P6é = Updated Preset Data Top 
OPERATION: IVAL first checks the variable 


to which the initial value is being 
assigned and opens the preset data entry. 
It then joins with entry point IVAL1 to 
process the initial data. If a repetition 
factor is present, it is converted and 
placed in the preset data entry. The ini- 
tial value constant is then processed, con- 
verted, and added to the preset data entry. 


OPERATION: 


CEKAF -- Array Dimension Specification 
Processor (ARDIM) 


ARDIM analyzes and encodes the dimension 
specifications for an array, when encoun- 
tered with a DIMENSION, COMMON, or type 
statement. See Chart CK. 


ENTRIES: ARDIM has one entry point (CEKA- 
FA) and one input parameter. The symbol 
table pointer of the array name is required 
in parameter register P2. 


EXIT: ARDIM returns with parameter regis- 
ter P2 unchanged. No other parameters are 
returned. 
OPERATION: If the array name class is 
"unknown" or “Simple variable," it is 
changed to “array variable,” and the dimen- 
sion values are scanned. If the class is 
already array variable, the source charac- 
ters, through the next right parenthesis, 
are spaced over before returning to the 
caller. 


The dimension values may be either 
integer constants or integer variables. If 
they are constants, the appropriate dimen- 
sion table entry is made, depending upon 
whether the array name is a subprogram ~ 
argument. If they are variables, the 
dimension values and the array name must 
both be subprogram arguments. If so, the 
symbol table flags are appropriately set to 
reflect the use of this variable as a vari- 
able dimension, and a dimension table entry 
for a variable dimension is made. ; 


CEKCC -- Label String Processor (LBSTR) 


LBSTR processes a string of labels, as 
encountered in assigned and computed GO TO 
instructions. See Chart CL. 


ENTRIES: LBSTR has one entry point (CEKC- 
CA) and one input parameter: P2 contains 
the PRF address of the line number field of 
the PRF entry being formed. 

EXIT: Output parameters are 

P2 = contains the source character fol- 


lowing the right parenthesis of 
label string. 


P3 = contains the PRF address of the 
last label added. 


P4& = contains the count of the number of 
labels in the string. 


For each label ACOMP is called 
for the label value. The value is checked 
and added to the PRF entry being built. 
When a right parenthesis is found, LBSTR 
returns. 
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CEKAC -- Statement of Identification (SID) 


SID is used to identify the type of 
source statement. See Chart CM. 


ENTRIES: SID has one entry point (CEKAC1), 
and no input parameters are required. 


EXIT: One output parameter, the statement 
ID number, is returned in parameter regis- 
ter P2. 


OPERATION: An initial recognition is made 
to identify the statement as either an 
assignment or a nonassignment statement 
(see Table 18). A precedence table (Table 
19) is used, from which new status values 
are extracted and used for branching. Non- 
assignment statements are analyzed further, 
until a unique identification is made. 

This is done in two steps. First, the 
first two characters of the name are 
matched against List 1 (see Table 20). If 
this does not yield a unique identifica- 
tion, the first four characters of the name 
are matched against List 2 (see Table 20). 
The resulting ID numbers are shown in 
Table 21. 


CEKAJ -- Statement Label Processor (LABL) 
LABL processes the statement label and 
determines if any loops are ended. See 


Chart CN. 


ENTRIES: LABL has one entry point (CEKA- 
JA), with no input parameters required. 


OPERATION: 


Table 18. Assignment/Nonassignment 


Character Table 


Ce ee 1 a taal ete sein at a an 1 
{ Internal Code | Identification Code | 
PSs See 4 
| A-G | 2 | 
i H | 1 { 
| I | 2 
| J-K | 1 | 
| L { 2 | 
| M { 1 | 
l N [ 2 | 
| 0 | 1 
| P | 2 | 
{ Q | 1 | 
| R-S | 2 | 
| T-V | 1 { 
| a | 2 | 
| X-2,$ | 1 | 
| 0-9 | 3 | 
| ( | 4 | 
| ) | 5 | 
{ ‘ | 6 { 
| = l 7 | 
| EOS* | 8 { 
| : | 10 | 
| All Others | 9 | 
ee fa ee ee 1 
|. *EOS ~ End of Statement | 

Ma at a aI Se oud 


LABL checks to ensure that the 
statement to be processed is not a condi- 
tional statement of a Logical IF and is not 
inside a BLOCK DATA program. If this is 
the case, the label is converted to its 
binary value. If the statement is in a 
BLOCK DATA program or is a conditional 
statement of a Logical IF, an error message 


EXIT: No output parameters. is produced, and the scan is terminated. 
Table 19. Assignment/Nonassignment Precedence Table 
ee ee ee ee ee ee ee ee ee ee 1 
| ID | 1 | 2 | 3 | 4g | 5 6 | 7 | 8 | 9 | 10 | 
| Code | | | | | | | { { | 
[-—----+------ ------} ------¢------}- ----- }------ f----- ------f------ 
S | { | | { | | | 
T | 1 | 9 | 2 | #10 | 10 | 10 10 | 10 | 121 | 10 | #10 «| 
A }---—--+------+----—-4------ 4------ 4 -—-- -}----- f------ +- -----f------ + 4 
T | 2 | 2 | 2 | 2 | 3 | 8 8 | 7 | 8 | 8 | 8 | 
U p--—--}--~---}------} —--——$--- -- + —----}-—---t} -- +--+ - 
Ss | 3 | a | q | 5 | 8 | 6 3 | 8 | 8 | a] 8 | 
}---—-}------}------}------ 4 ------4 -----f ------f---- + -----f-—---- +--—-- 1 
; 4 | © | © | 4 | 8 | 6 3 | 8 | 8 | 3 | 8 4 
fra ea fn nna fanned nnn} 
{ 5 | 8 | 8 | 5 | 8 [| 6 3 | 8 | 8 | 3 {| 8 | 
}--—--4 —----}------ ------}------ 4 ------ ------ }----—- } --------—---f--——--f 
i; 6 | 8 {| 8 | & | 8 | 8 8 i 9 | 8 | 8 | 8 4 
}~--—--}------}------} --—----}------- -—---- 4 ------ f----—-f------ ¢------+------4 
| 7 i, oe EE OP Be! 8 8 | 9 | 9 | FY | 8 4 
bite a dk a a 8 a ee Ed 
8 - Nonassignment Exit 
9 - Assignment Exit 
10 ~ Error Exit 
11 - Blank Statement 
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Table 20. Nonassignment Type Statement 


Identification 
Sete re Ser Poca ee 1 
| { | # Characters | 
| List 1 | Statement Name | in Name | 
}-—---—}---------------— $--——---—- 1 
| IF | IF | 2 | 
{| GO | GO TO | 4 { 
{| Do | * | | 
| co {| * | 
| WR | WRITE if 5 | 
[| RE | * ~ | | 
{ FO | FORMAT | 6 | 
| cA | CALL | 4 | 
| DI | DIMENSION | 9 | 
{ AS | ASSIGN | 6 | 
| NA { NAMELIST | 8 | 
| EQ | EQUIVALENCE | 11 | 
| LO | LOGICAL | 7 | 
| IN | INTEGER | 7 | 
i IM {| IMPLICIT | 8 | 
| EX | EXTERNAL | 8 | 
| EN | * | | 
| BA | BACKSPACE { 9 | 
{| SU | SUBROUTINE | 10 | 
{| FU | FUNCTION | 8 { 
{ PR | PRINT | 5 { 
| PU | PUNCH | 5 | 
{| BL {| BLOCK DATA | 9 | 
| DA | DATA | 4 | 
{ st | stop | 4 | 
| PA | PAUSE | 5 | 
}—----——------------------ {---------————— 4 
{ | | # Characters | 
{| List 2 | Statement Name _ | in Name | 
}------—-t------—-----—- ——{-------------- 
| READ | READ | 4 | 
| END Eos| END | 3 | 
| COMM {| COMMON | 6 | 
| RETU | RETURN | 6 | 
| REWI | REWIND | 6 | 
{| CONT | CONTINUE | 8 | 
| ENDF | END FILE | 7 | 
| REAL {| REAL | 4 | 
| COMP | COMPLEX { 7 | 
| ENTR | ENTRY | 5 | 
{| DOUB {| DOUBLE PRECISION| 15 | 
}----—--—- L-—- -- ---- --- —_---1-------------} 
{| #* Not unique. | 
GO cai ala ety ees acne eee eee ces aa ah ie J 


If the label field is nonzero, a label 
definition PRF entry is generated, and the 
DO loop pushdown list is scanned to see if 
any loops are terminated. If the no-flow 
flag is up, the no-flow indicator in the 
PRF entry is set. 


If the label field is blank and if the 
no-flow flag is up, a diagnostic is 
printed, indicating that the statement is 
not accessible. If the ISP option is on, 
TEVCRL is called to create a label, and 
processing continues with forming the PRF 
entry. 


CEKBQ -- Fallthrough Determination (FALTH) 


FALTH is called by EXEC2 to determine if 
a label reference in the statement preced- 
ing the current one refers to the current 
statement. See Chart CO. 


ENTRIES: FALTH has one entry point (CEKB- 
QA) and no input parameters. 


EXIT: No output parameters. 


OPERATION: FALTH checks to see if the cur- 
rent statement was labeled. If it was not, 
a normal exit is taken. If it was labeled, 
the PRF links are followed until the label 
definition entry is reached. The statement 
number in the label definition PRF entry is 
saved, and the link followed to the pre- 
vious PRF entry. If that PRF entry is a 
label definition or an argument definition 
entry, the link is followed to the next 
entry, and so on. If the PRF entry is any 
of the GO TO entries, or a CALL, arithmetic 
IF, READ, or READ with namelist entry, the 
label references in the statement are; 
matched with the statement number saved 
from the label definition. If a match is 
found, the label reference number is set to 
negative. 


The occurrence of a negative statement 
number in succeeding phases results in 
object code optimization. If the PRF entry 
is other than those mentioned above, a 
normal exit is taken. : 





Table 21. Statement ID Numbers 

Se it a Se ee nm Rcpeneae | 
| | ID | {| ID | 
| Executable| No. | Nonexecutable | No. | 
| -----------}---- ------------—------4--—} 
| BLANK {| © | BLOCK DATA ; 18 | 
| ASSIGNMENT{ 1 | COMMON { 19 | 
| ASSIGN 2 | DATA | 20 | 
| BACKSPACE | 3 | DIMENSION } 21 | 
| CONTINUE | 4 | END { 22 | 
| END FILE | 5 | ENTRY {| 23 | 
| PAUSE {| 6 | EQUIVALENCE {| 24 | 
{| PRINT | 7 | EXTERNAL { 25 | 
| PUNCH | 8 | FORMAT j; 26 | 
| REWIND | 9 | FUNCTION { 27 | 
| WRITE { 10 | IMPLICIT | 28 | 
| READ | 11 | NAMELIST | 29 | 
| CALL | 12 | SUBROUTINE | 30 | 
{| STOP | 13 | COMPLEX { 31 | 
| RETURN {| 14 | DOUBLE PRECISION | 32 | 
| GO TO {| 15 | INTEGER | 33 | 
| IF | 16 | LOGICAL | 34 | 
| DO | 17 {| REAL { 35 | 
| | | STATEMENT FUNCTION| 36#| 
-—-—---—~----1----1 --_-_---__-_- --_- __----- 1 


|*This ID is never set by SID, but is set | 
| by FYPR. { 


ea ae a a wee a ene cece a a ae ee ee ee ens ae oe en en ae ed 
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CEKCA -~- Diagnostic Message Generator (ERR) 


ERR generates diagnostic messages for 
the statement processors wnenever any 
source errors are encountered. See Chart 
CP. 


ENTRIES: ERR has four entry points. ERR1L 
(CEKCAA) is used for warning messages, ERR2 
(CEKCAB) is used for serious error mes- 
Sages. ERRD (CEKCAC) is used for serious 
error messages associated with statement 
deletion, and ERR3 (CEKCAD) is used for 
fatal error messages associated with abor- 
tive end of compilation. The input parame- 
ter for all entry points is the message 
number in register P2. 


EXIT: No output parameters. 


OPERATION: This routine prepares a parame- 
ter list for the compiler executive subrou- 
tine RDM (CEKTE), and calls RDM to put out 
a diagnostic message. The parameters for 
RDM are determined by the message number 
presented to this routine. Each message 
number indicates a list of four halfword 
indicators. Each nonzero indicator either 
specifies a piece of prepared text, whose 
length and location are to be added to the 
RDM parameter list, or specifies a’ code 
branch to perform a special operation to 
obtain material for the RDM parameter list. 
A message number for which indicators have 
not been provided causes a special RDM pa- 
rameter list to be prepared, giving the 
message number. 


The local maximum error code is updated by 
this routine, according to the entry used. 
The delete flag is raised when the ERRD 
entry is used. 
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INTRODUCTION 


Phase 2 performs several major func- 
tions. Storage assignments are made for 
all source program variables, taking into 
account the effects of COMMON, EQUIVALENCE, 
and DIMENSION statements. The source pro- 
gram flow and DO loop structure are ana- 
lyzed to verify that all referenced labels 
are defined, to determine that all flow 
across loop boundaries is legal and to mark 
loops for materialization of the loop vari- 
able (keeping it in its memory cell), or 
for marking the loop unsafe (minimum opti- 
mization) when flow conditions demand it. 


ROUTINE DESCRIPTIONS 


Phase 2 routines bear mnemonic titles as 
well as coded labels. The 5-character 
coded labels begin with the letters CEKJ; 
the fifth letter identifies a specific rou- 
tine. Various entry points to a routine 
are identified by a sixth character, a 
digit, added to the coded label; for 
example, the coded label for the diagnostic 
message generator variable routine is 
CEKJH, and there are entry points CEKJH1, 
CEKJH2, and CEKJH3. When reference is made 
to a compiler executive routine or entry 
point, the mnemonic title is used, followed 
immediately by the corresponding coded 
label enciosed with parentheses. 


There are no hardware configuration 
requirements for any of the Phase 2 rou- 
tines. All these routines are reenterable, 
nonresident, nonprivileged, and closed. 
Except for PHASE2 (CEKJA), which uses stan- 
dard, type I linkage, all Phase 2 routines 
use restricted linkage. 


The relationships of routines in this 
phase are shown in the following nesting 
chart (Figure 18) and decision table (Table 
22). The relationships are shown in terms 
of levels; a called routine is considered 
to be one level lower than the calling rou- 
tine. Phase 2 controller PHASE2 is consid- 
ered to be level 1. 


CEKJA -- (PHASE2) 


PHASE2 controls the overall processing 
of Phase 2. See Figure 19. 


ENTRIES: This routine is entered using 
standard, type I linkage. It calls the 
other routines used in Phase 2 by 
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restricted linkages. It has one entry 
point, CEKJA1, and one parameter, the 
executive intercom region. 


EXITS: PHASE2 has one normal exit to Exec. 

Abnormal exits are converged to the Exec 
with return codes (RC) 8 and 4 Return 
code 8 specifies an irrecoverable condition 
and is referred to mnemonically as the 
ABORT return code. Machine or compiler 
errors (MCERR) are indicated by return code 
4. 


OPERATION: On entrance from Exec, PHASE2 
initializes itself and invokes the two main 
routines: VSCAN and FSCAN. (See Figure 
19). VSCAN makes storage assignments using 
the storage specification list for informa- 
tion about COMMON and EQUIVALENCE state- 
ments. FSCAN scans the PRF to perform the 
flow and loop analysis. - 


CEKJC_-- Storage Assignments for Variables 
(VSCAN) 


VSCAN makes storage assignments for all 
variables in a source program, and consists 
of three parts: VSCANi, VSCAN2, and 
VSCAN3. See Chart CQ. 


ENTRIES: VSCAN has one entry point 
(CEKJC1) and is invoked by PHASE2. 
are no input parameters. 


There 


EXITS: 
tive with the normal, ABORT, 
return codes. 


VSCAN returns. to the Phase 2 execu- 
or MCERR 


OPERATION: VSCAN assigns storage space for 
all variables. Assignments are made in 
certain storage classes. The status of 
each storage class is kept up to date in 
its storage class table entry (see Appendix 
A). Non-COMMON variables are assigned in 
storage class 6, blank COMMON in storage 
class 9, and named COMMON in as many of 
classes 10-127 as are needed. Each symbol 
table variable entry has its STCL field 
filled with the appropriate storage class 
and its SLOC field filled with an assign- 
ment relative to the base of that storage 
class. The storage class table entry for 
each class includes the number of bytes 
already assigned in that class; the entry 
also indicates the next available space. 
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Level 


ee [| 


Figure 18. 
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VSCAN 


PHASE 2 


ISP 
DX 
RDM 


Phase 2 Nesting Chart 








FSCAN 


FLL 


Table 22. Phase 2 Decision Table 


Routine:——---~-~----Phase 2---~----~~--~+~—--~--~---~--—--+----------- Level: 1 -—---~-------- 
CS a ee ee ee ee De a Ae eg ne GE eg ee a ee ee : 
| | | Called | | 
|Routine | Usage {Routines | Calling Conditions | 
oe eae $—--——-——- —-— --- + 
|PHASE2 |Controls the operation of | VSCAN {Entered unconditionally to make the memory | 
| | Phase 2. j | assignments. | 
| | | F SCAN {Entered unconditionally to scan the PRF to] 
| | | | perform the flow and loop analysis. | 
Cs Dh a te eae ees ee i ae ae a eed 
Rout in e:-——--—---—-——-—-—~— Phase 2—-~--—-—-—--—-—-—--—----——---—---~—-—-—-——~—----—-—-~-—-—-~ Level: 2 —-—-—---—-~-—--—- 
rrr rr nnn Tt LP A OS OF EO A ED SD eS ES GE RY SS T LS SE SD OS a IE A ce SS SS SS SS aE SD EE SE SE SD ET A ES EE ED SO SD A SE cD a % 
[VSCAN [Makes the memory assign- | DX |I£ an error condition is found, entered | 
| | ments for all variables. | | to print the error message. | 
| FSCAN Does the flow and loop |RTNi [Entered for each label reference to place 

analysis including label | j an entry in the Symbol Table. 

processing, illegal | LAB {Entered for each label reference to check 

transfers, unsafe loops, | | the legality of transfers into and out 

and COMMON and formal | | of loops. 

argument definition | ISP {Entered for each label reference to check 

points. | {| for a proper Symbol Table entry. 


|to a FORMAT number to check for a proper 
{Symbol Table entry. 
| TEVFLL {An Exec routine entered for each label 


(CEKTFG) | definition to file an entry in the 
| symbol table. 


{ 
| 
| 
| 
| 
| 
| FORMAT {Entered for each I/O statement reference | 
| 
{ 
| 
| 
| 
| 
{ 


| 

| 

| | to print the error message. 
L 1 


DX |Entered when an error condition is found 
ci a a a te J 
Routin e:-—-—--—----—----—Phase 2------—--~-—-—--—-——---—-——---+-——-+---—-——-~—----+ Level: 3 —--~--—------ 
[RENL \Places label references | TEVFLL jan Exec routine entered to make the label | 
i { in the Symbol Table. | (CEKTFL)| entry in the Symbol Table. { 
|--------+-------------------------4---------}------------------------------------—---| 
| LAB {Checks the flow as | Isp {Entered for each label reference to de- | 
| | related to DO loops. | | termine if a legitimate Symbol Table | 
| | { | entry exits. | 
| | [DX {Entered if an error condition is found to | 
| | { | print out the error message. | 
Sos 186-8 toes ess= pase eee eer Te | 
{FORMAT {Checks to see that refer-|DX {Entered if an error condition is found to | 
| | enced FORMAT statements | | print out the error message. | 
| | are properly defined | | | 
| | in the Symbol Table. | | | 
Naeger hc i a ai a asst as i as aha ei ee a ate a a eae 4 
Rout ine:—-------—----Phase 2-—~----—-~~-—-—~--~—-———~—~—-—--—--—~+----—-—~—--~--—--Level: 4 --—-------—---— 
So a ne es oe ee ee en ee eee ee eo 1 
{Isp {Checks to see that refer-|DX |Entered if an error condition is found to | 
| {| enced statement labels | | print out the error message. | 
| | are properly defined in | | | 
| | the symbol table. | | | 
is Pan ae beso oS a a aie ante 4 
Routine --------—---Phase 2-----—------—-——-—-~—-~—-—-----——-~+-—--—---—------—-—----Level: 5 ------------ 
Se Coe ee oe ooo Poe ee ee eee ee ee an a a 1 
| DX |To generate the error | RDM [An Exec routine entered for each error | 
| | message | (CEKTE) | to print the line. | 
i | | | | 
Da ia Sa st ea ek es eee a a Tae a a a he J 
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Phase 2 










Phase 2 
Initialization 


VSCAN 


Assign 
Storage to 
Variables 


Figure 19. Phase 2 General Flow 


All symbol table entries except con- 
stants and labels are relinked from the 
hash-table-based chains used in Phase 1. 
The variables of each storage class now 
form a chain, linked in order of assign- 
ment. External reference, namelist, and 
entry entries form three additional chains. 


Description (VSCAN1): All chains based on 
the variable hash table are scanned, and 
each entry is examined. Those marked as 
external reference, namelist, or entry are 
linked into their appropriate chains. 

Those marked variable but flagged as COMMON 
or EQUIVALENCE are ignored, since they will 
be processed later. Those marked variable 
but flagged as formal argument are also 
ignored. All other nonvariable entries are 
ignored. 


For each non-COMMON, non-EQUIVALENCE, 
non-formal-argument variable encountered, 
an entry ina sort table is made (see 
Figure 20) containing the number of dimen- 
Sions, the type size mask, the amount of 
storage required, the type indicator, and 
the symbol table pointer. When all symbol 
table entries have been scanned, the sort 
table is sorted to increasing value of 
these fields. The result is that all 
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0 4 8 16 31 
re ee ee 1 
| ND | TM | SZ | 
}----1----+------------ qan nanan 4 
| TY | Unused | VAR | 
re ig A ee at 


ND Number of dimensions (0-7) 
™ Type/size mask: 
0 Logicai*#1 
1 Integer*2 
3 Logical*4 7 Complex*s 
3 Integer*4 F Complex*16 
SZ Total storage requirement 
TY Type: 1 Logical 
2 Integer 
3 Real 
4 Complex 
VAR Symbol Tabie name part pointer 


3 Real *4 
7 Real*¥8 


Figure 20. Sort Table Entry 


Simple (undimensioned) variables come 
first, then all 1-dimensional arrays, etc. 
Within a dimensionality, variables of the 
same type fall together, those requiring 
less storage preceding those needing more. 


The variables are then assigned in the 
sorted order, to maximize the possibility 
for sharing address constant cover and sub- 
scripts between variables. The assignments 


‘are made in storage class 6, with each 


variable being assigned to the next avail- 
able byte on a boundary suitable for the 
type. At the same time, the variable sym- 
bol table entries are linked into the vari- 
able chain. 


Description (VSCAN2): VSCAN2 scans the 
storage specification list, processing the 
COMMON variables and providing preliminary 
processing for variables appearing in EQUI- 
VALENCE statements. The information from 
COMMON statements filed in the storage 
specification list is scanned. Each vari- 
able is given an assignment (STCL and SLOC) 
in the storage class for its COMMON block 
and linked into the symbol table chain for 
that block. The size of the block is 
increased for each variable by the space 
required for the variable. 


If the available assignment for a COMMON 
variable is not at the proper boundary 
(halfword, fullword, doubleword) for the 
type, a warning message is produced. (In 
the object program storage layout all 
storage classes will start on a doubleword 
boundary. ) 


As the storage specification list is 
being scanned and COMMON variables are pro- 
cessed, the information from EQUIVALENCE 
statements also receives preliminary pro- 
cessing. The material appearing in a set 
of parentheses in an EQUIVALENCE statement 
is called a group; group numbers are 


assigned to groups sequentially, in order 
of occurrence. AS an EQUIVALENCE entry is 
encountered, VSCAN2 must determine whether 
a variable is of the type 'FF*'. If so, 
VSCAN2 computes the offset by searching for 
dimension information in the Dimension 
Table (whose specifications may occur in 
DIMENSION, COMMON or explicit TYPE state- 
ments). If insufficient or no dimension 
information is found, an E level diagnostic 
is issued and an offset is computed by 
defaulting to the first subscript. Pro- 
cessing continues to the next variable or 
group, if any, until all groups in the 
EQUIVALENCE statement are exhausted. 


If a variable is of the type ‘FF* and 
dimension information permits an offset to 
be computed, VSCAN2 overlays the last sub- 
script entry (EE2, EE3, EE4 or EE5) with 
the newly formed EE1. With this technique 
VSCAN2 can consistently step through tne 
EQUIVALENCE entries by an increment of one 
(1). For each occurrence of a variable in 
an EQUIVALENCE statement, an entry is made 
in the variable list (see Appendix A for | 
variable list format). The entry consists 
of the symbol table pointer, the group 
number, and the offset in bytes, and repre- 
sents the equation 


(base of group) = (base of variable) + 
offset 


Base-of-group and base-of-variable are 
unknowns. Base-of-variable represents the 
eventual storage assignment to be made for 
the variable. Base-of-group represents the 
assignment which would be made to a vari- 
able appearing in the group with no 
subscript. 


Description (VSCAN3): After the storage 
specification list scan is completed, the 
variable list is sorted by increasing or- 
der, with the symbol table pointer as the 
major key and the group, there will be con- 
secutive entries for that variable in the 
sorted list. These consecutive entries in- 
dicate connections between different 
groups. See Figure 21. 


The sorted list of variables is scanned. 
In the case of consecutive pairs involving 
the same variable, each such pair repre- 
sents a pair of equations: 


(base of group,) = (base of 
variable) + offset, , 


(base of group2) = (base of 
variable) + offsets, 


where the number of group2 2 number of 
group, . 


Variable List Entry 


0 16 31 
(Serr ee [Se ee 1 
| VAR | GPV | 
fmm enn nn nnn nnn nnn nh nn nnn nn { 
| OFS | 
Le ewe wee ie ae ee J 
VAR Symbol Table name part pointer 

GPV EQUIVALENCE group number 


OFS Offset in bytes 


Group Connection List Entry 


0 16 31 
Ce ee ee APO re ee 1 
| GP1 | GP2 | 
[-------------------- 4a — =n = 1 
l DSPL | 
ede ee OL ct 1 
GP1, GP2 Group numbers 

DSPL Displacement 


Group Table Entry 


) 16 24 31 
Deere ee ee SO, gs re Ce ee Wee ee a ee 1 
| GP1 {| sTcL {| MAxs§ | 
| --------~-----—------1---~+~----1-~~-~-=----] 
| DSPL . | 
l-——————— —--—————-—~—~—--—--—-——-——-— --—-—--------I 


GP1 Group number 

STCL Storage class 

MAXS Maximum byte boundary over group 
DSPL Displacement 

Figure 21. Variable List, Group Connection 
List, and Group Table Entries 


Eliminating the base-of-variable gives 
the equation 


(base of groupz) = (base of group,) + 
(offset,-offset,) , 


which is represented by an entry ina new 
list, the group connection list, consisting 
of group number,, group number2, and a dis- 
placement computed as offset2 minus 
offset,. 


After completion of this scan, the group 
table is initialized. It contains one 
entry per group, and will eventually indi- 
cate, for each group, the lowest numbered 
group with which it is connected and its 
displacement from the base of tht group. 
Each entry consists of a group number and 
displacement, representing the equation 


(base of group;) = (base of group ) +. 
displacement , 
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and is initialized to 


(base of group,;) 
0 


= (base of group;) + 


Each group connection entry is processed 
against the group table. The grouo 
connection entry gives the equation 


(base of group,),.= (base of group;) + 
displacement, 


and the group table entry for group gives 
the equation 


(base of group,) = (base of group;) + 
displacements . 


Comparing the numbers of group; and 
group,, there are three possible cases. 


Case 1. i<j The group connection entry 
relates group, to a lower-numbered group 
than that with which it is already con- 
nected. Group; and displacementz are 
saved, and the group table entry for 
group,is changed to indicate 


(base of group.) = (base of group;) + 
displacement, . 


If k = j (as initially), no further pro- 
cessing is needed. However, if k > j, 
eliminating base-of-group; from our two 
equations gives a new group connection 
entry representing 


(base of group;) = (base of group;) + 
(displacement, - displacement,) . 


This entry is formed and processed against 
the group table entry for group;. 


Case 2. i = j. If displacement, = displa- 
cement,, this entry is consistent but 
redundant, and needs no processing. 


Case 3. i> j. The group table entry 
relates group, to a lower-numbered group 
than the group connection entry. Elimina- 
ting base-of-group, from the two equations 
gives a new group connection entry 
representing 


(base of group;) = (base of group;) + 
(displacement, - displacement,) . 


This entry is formed and processed against 
the group table entry for group;. 


After the group connection list has been 
processed, a final pass is made over the 
group table. Each entry represents an 
equation 


(base of group,) = (base of group,) + 
displacement, 
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If the earlier entry for 
groups indicates 


(base of group,) = (base of group.) + 
displacement. , 


then substitution yields 


(base of group,) = (base of group,) + 
(displacement, + displacements) . 


This substitution is carried out for each 
entry to which it applies. 


The group table is now in final form and 
ready for use. The variable list is 
scanned again. Each entry represents 


(base of variable) = (base of groupn) 
- offset . 


The group table entry for 
group, represents 


(base of group,) = (base of group,) + 
displacement . 


Substitution yields 


(base of variable) = (base of group,) 
- (offset - displacement) 


and the variable entry is changed to repre- 
sent this equation. (If two consecutive 
entries for the same variable occur, both 
must transform to the same new entry.) 

This entry now relates the variable to the 
base of the lowest-numbered group in the 
connected set of groups in which the vari- 
able occurs. 


During this scan the STCL field in the 
symbol table entry for each variable is 
checked. This field is zero for a non- 
COMMON variable, but indicates the COMMON 
block for a variable which has already been 
assigned in the COMMON processing. If any 
variable in a group is in a COMMON block, 
the group table entry receives the appro- 
priate storage class; otherwise, this entry 
is set to storage class 6. Also during 
this scan, the size of the largest variable 
in a group (1, 2, 4, 8, or 16 bytes) is 
associated with the group. 


The variable list is sorted by decreas- 
ing order, with the group number as the 
major key and the offset as the minor key. 
(The offset may be negative, so the sort 
must use algebraic comparisons.) This sort 
brings together the variables within the 
same group and arranges them in order of 
storage assignment. 


Now the list is scanned, and assignments 
are made for each variable. For each non- 
COMMON group the current size of storage 
class 6 is adjusted to the proper byte 


boundary for the largest variable in the 
group. The first variable in the group 
(the one with the largest offset) is given 
this assignment, and each successive vari- 
able is assigned to this location plus the 
difference of maximunm-offset minus the 
-variable's-offset. Also for each vari- 
able, its size (total size if an array) is 
added to its assignment, and tne maximum of 
these over each group is used to update the 
size of storage class 6 when all the group 
variables have been processed. skach vari-~ 
able is linked to the end of the non-COMMON 
variable chain. 


For a group including a COMMON variable, 
that variable is located and its existing 
assignment is taken as a group base. 


Each variable is given, as an assign- 
ment, the assignment of the base COMMON 
variable plus the difference of COMMON- 
variable-offset minus variable-offset. A 
check is made for negative assignments and 
assignments to improper byte boundaries. 
Each variable assigned is linked into the 
chain for the COMMON block, in order of 
increasing assignment. If the size of the 
COMMON block is increased by these assign- 
ments, the storage class table entry is 
updated. 


In addition, as the assignments are made 
for common variables, checks are made to 
ensure that those appearing in DATA state- 
ments are permissible. 


VSCAN detects and issues diagnostic mes- 
sages for source program errors related to 
storage assignments for variables. These 
include inconsistencies in EQUIVALENCE 
relations and assignments forced by COMMON 
or EQUIVALENCE statements that place 
variables on byte boundaries which are not 
proper for the variable type. 


VSCAN may issue a diagnostic message and 
branch to PHASE2 with the ABORT code if the 
internal tables used for sorting exceed the 
maximum available space. VSCAN may branch 
to the Phase 2 executive with the MCERR 
code if certain conditions are detected 
which must be due to machine or compiler 
error. 


If the ISD option is OFF, another symbol 
table scan is made to find interfering 
variables. In each storage class, the 
variables are scanned in order of storage 
assignment by following the existing chains 
built by VSCAN. For each variable, the 
storage assignment plus the size is com- 
pared with the storage assignments of suc- 
ceeding variables. When overlap is. 
detected, the "Equivalence Flag” in the 
symbol table description part is raised and 
the variables are iinked, using the FDP 
anchor field in the symbol table entries, 
in a chain of interfering variables for 
that storage class. At the end of VSCAN, 
these chains are anchored in a new table, 
“Intble", which has the format below. - 


0 16 31 
INTBLE FORMAT 9-3 rn nnn nn 7 
{| No. of named {| Not used | 
{ commons | here | 
| -~-----~------------}------------------------4 
{| SYMTAB Anchor | 8000 | 
| Storage Class 6 | (flag for later use) | NON-COMMON VARIABLES 
}---~--~--—~—--—-~~-- finn nn nnn nnn nnn nnn { 
| SYMTAB Anchor | 8000 | 
| Storage Class 9 | | BLANK COMMON VARIABLES 
}-------------------- }------------------------ { 
| SYMTAB Anchor | 8000 | 
| Storage Class 10 | | FIRST NAMED COMMON 
}-----------—-------- }--—--------------------- 1 
| | | 
| | | 
[-------------------- }------------------------ 4 
| SYMTAB Anchor | 8000 | 
| Storage Class N | | LAST NAMED COMMON 
| ~-----———- == ——------—- fone nn nnn nnn { 
SYMTAB PRF 
Rann eee >| <mennennnn ren- > 
PART PART 
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CEKJB -- Process Label References and 
Definitions (FSCAN) —~ 


FSCAN is in two parts: 


FSCAN1 - is concerned with labels which 
must be entered into the symbol 
table and marked if referenced in 
the source program. 


FSCAN2 - is concerned with the following: 
undefined label references and 
illegal flow conditions across DO 
loop boundaries, unsafe loops and 
the need for materialization, and 
definition points for COMMON and 
formal arguments. 


See Chart CR. 


ENTRIES: FSCAN has one entry point 
(CEKJB1) and is invoked by the Phase 2 
executive. 


EXITS: FSCAN returns to the Phase 2 execu- 
tive with the normal, ABORT, or MCERR 
return codes. There are no parameters. 


OPERATION: FSCAN1 constructs symbol table 
entries from label references and label 
definitions, together with information per- 
taining to each label. One scan is made 
over the PRF, by simultaneously progressing 
along three separate chains. These chains 
are as follows: 


1. CLNK chain -- Links all transfer of 
control statements in the PRF. For 
each different place to which control 
can be transferred, there is a label 
reference. 


2. LLNK chain -- Link label definition 
entries in the PRF. 


3. PDLNK chain -- All DO statements have 
a begin loop (BL3) and a special entry 
end loop (ENDL) in the PRF, just prior 
to the next executable statement out- 
Side the loop. These are the loop 
boundary items, and all such items in 
the PRF are linked into a loop bounda- 
ry chain called the PDLNK chain. 


After any chain entry has been pro- 
cessed, the three links (one for each 
chain) are compared. The chain having its 
next entry closest to the present scan 
position in the PRF is selected for pro- 
cessing next. 


When a GLNK chain entry is selected, 
each label reference (there are NOEL of 
them) is placed in the symbol table and 
denoted as a referencei label. The number 
of references is given by the NOEL field. 
The LLNO field in the PRF is changed to 
contain the pointer to the label entry in 
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the symbol table. A negative label value 
indicates a reference to the next statement 
and is not marked “referenced.* 


When an LLNK chain entry is selected, 
the label is placed in the symbol table, 
together with corresponding level and pla- 
teau values, and the LLNO field in the PRF 
is changed to contain the label address in 
the symbol table. Multiply defined labels 
are detected in this scan. 


When a PDLNK chain is selected, the 
level and plateau values are incremented 
and saved, and the level value is placed 
into the LEV field of the PRF. 


Two tables, formed during FSCAN1, are 
used during FSCAN2 for detection of illegal 
flow conditions: 


The Barrier Table 


0 15 16 31 


rr ee ep ae CR ae he ge ge a, heb CR tape te 1 
| PLAT LEV 
be ee oe ee MB le Se J 


The Innermost Loop Table 


0 15 16 31 


(oS ee oer ee 1 
|Symbol Table Pointer| 


| 

| PLAT | (May be 0; entered | 
| j|during scan number | 
{ | 2) | 
ch a a Boo hp aes oe ee as J 


The plateau value is entered into the 
innermost loop table whenever a BL3 entry 
is preceded by an ENDL entry. The level 
and plateau values are entered into the 
barrier table whenever a BL3 entry is fol- 
lowed by an ENDL entry. 


A plateau is any area between loop 
boundary entries. The PRF link to a loop 
boundary entry (End Loop or BL3) is used as 
a name for the plateau which starts with 
that entry. 


FSCAN2 is concerned primarily with three 
things: 


1. Discovering any label references which 
are not defined. 


2. Processing DO loop items for flow 
conditions. 


3. Forming the CDP and ADP chains. 


These three processes are carried out si- 
multaneously while FSCAN2 is scanning the 
PRF along the ILNK chain (which links 
together successive PRF items). 


Label Processing 


If the current item in the PRF scan is a 
label reference item, each symbol table 
pointer associated with the label reference 
is used to locate the define bit in the 
symbol table for that particular label 
reference. If the define bit is not on, 
this particular label is not defined, and 
an appropriate error diagnostic is given. 
This particular PRF item is then deleted 
from the ILNK chain. =< 


Label definition items are similarly 
checked, to see if they have been 
referenced (i.e., the reference bit is set 
in the symbol table). If not, this item is 
deleted from the LLNK chain. After this 
“Scan the LLNK chain will link together suc- 
cessive label definitions for referenced 
labels only. Label definition items which 
have been referenced are checked for the 
no-flow condition. If the no-flow bit is 
set in the symbol table, a diagnostic is 
issued indicating that the statement cannot 
be reached. 


Flow Processing 


If the current item in the PRF scan may 
cause an illegal flow condition to occur, 
the item will be investigated for all such 
conditions, and a diagnostic given if any 
is found. 


The flow processing is broken into two 
areas for investigation. These conditions 
are described below. “Level zero" denotes 
a plateau not inside any DO loop. 


1. Jumps from or to Level Zero 


Jumps from Level Zero. If the jump is 
not to an innermost loop or to level 


zero, a diagnostic is given. If the 
jump is to an innermost loop, the pla- 
teau and symbol table pointer of the 
definition are entered into the E loop 
list. 


Jumps _to Level Zero. If a jump is 
made to level zero from an innermost 


loop, the plateau vaiue of the label 
reference is entered into the X Loop 
List. In this case, all intervening 
levels from the label reference to the 
level preceding the label definition 
are marked as materialized in the 
"Materialization List." 


2. dumps Other than those from or to 
Level Zero 


Jumps into Loops (Jumps to Higher 
Levels). A jump from a level other 


than level zero to a label definition 
whose level is greater than that of 
the label reference is an illegal jump 


into a loop, and an appropriate diag- 
nostic message is given. 


Jumps Out of Loops (Jumps to the Same 
or Lower Levels). If a jump is made 


(from a reference level other than 
level zero) to a label definition 
whose level is less than or equal to 
that of the label reference, the bar- 
rier table must be inspected for any 
plateau values with level lower than 
that of the definition intervening 
between the plateau value of the label 
reference and that of the label 
definition. If there are no such pla- 
teau values between these limits, the 
jump is legal. If there is such an 
intervening plateau value between 
these limits, a diagnostic message is 
given, indicating an illegal jump into 
a loop. All loops from the reference 
level to the definition level are 
marked “materialize.” 


DO Loop Processing 


1. Unsafe Loops 
Two lists are formed during FSCAN2:. 


E Loop List -- consists of plateau 
values of label definitions which 
occur at an innermost loop, and 
are referenced from level zero. 


X Loop List -- consists of plateau 
values of label references which 
occur at an innermost loop. 


Every entry in the E loop list should 
also be in the X loop list; therefore, 
each innermost loop entered from level 
zero also has a jump out of this 
innermost loop to level zero. If this 
condition is not met, an appropriate 
diagnostic is given. A third scan is 
made over the PDLNK chain. If any 
entries exist in the E loop list, 
those end loop entries which lie 
between the plateau values of the 
label reference and the label defini- 
tion are marked as unsafe. 


2. RETURN Loops 


Loops containing RETURN statements are 
marked “materialize"™ if the loop vari- 
able is in COMMON or is a formal argu- 
ment called by name. 


3. Definition Point Chains 


The CDP chain connects PRF entries 
which must be considered as definition 
points for all COMMON variables or 
formal arguments. An entry is linked 
in this chain if the statement 
involves a call on an abnormal func- 
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tion or subroutine (one which may 
redefine COMMON), or if a formal argu- 
ment is explicitly assigned a new 
value. 


The ADP chain connects PRF entries 
which must be considered as definition 
points for all formal arguments. An 
entry is linked in this chain if a 
COMMON variable is explicitly assigned 
a new value (and the entry is not 
already in the CDP chain). 


The processing of interfering variables 
takes place during the second PRF scan. 
Chains of the interfering variables within 
each storage class are formed within the 
PRF and anchored in the second halfword 
(the PRF part) of the corresponding Intble 
entries. When a variable is being defined, 
that is, wherever ID = 5 (equation), ID =D 
(argument definition point), ID = 10 (Begin 
Loop 2), or ID = 21 (Input list Element), 
the equivalence flag in the symbol table 
descriptive part for the variable is 
checked. If the flag is raised, the 
storage class of the variable is used to 
locate the correct Intble entry. The vari- 
able is added to its chain by setting the 
VDP field to the PRF part of the Intble 
entry, and the chain's anchor is updated by 
setting the PRF part of the Intble entry to 
the ILNK field. 


The interfering variable chains are 
reversed during the reversing of the CDP 
and PDLNK chains. Another table of the 
same size as Intble, LNKSAVE, is used to 
hold the saved links. During the chain 
reversal, the chain whose current link is 
in the highest location is chosen for 
reversal at each step. The set of inter- 
fering variable chains is searched to find 
the highest link, and the result is com- 
pared with the current CDP and PDLNK links 
to find the highest current chain link. 


After the chain reversals, Intble is 
scanned for storage classes containing in- 
terfering variables. These symbol table 
chains of variables are followed and FDP 
anchor fields are set to the beginning of 
the PRF VDP chain for that storage class. 


A halfword cell “LXT" is used to hold a 
symbol table pointer and a flag “ACGTFL”" is 
used to indicate that the current PRF item 
is either an assigned or a computed GO TO 
statement. 


ACGTFL is lowered before starting FSCAN2 
and raised at each computed (ID 8) or 
assigned (ID 7) GO TO item before calling 
LAB (CEKJE) and lowered when returning from 
LAB. 


LXT is set to 8001 at each end-loop item 
(ID12) unless the global flag is raised 
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OPERATION: 


(i.e., loop is flagged “Innermost no 
calls"). In this case, LXT equais 8000. 

At each begin-loop-2 item (ID 10), the cur- 
rent value of LXT is put into the EXITLB 
field and the LXT is set to 8001. 


CEKJD -- Label Reference Processor (RTN1) 


RTN1 places label references in the sym- 


bol table. See Chart cS. 
ENTRIES: RTN1 has one entry point, CEKJD1. 
Input parameters are 
P1 -- Number of label references in 
PRF item 
P2 -- Index to first label number in 
PRF item 
EXITS: RIN1 returns to the invoking rou- 


tine with the normal or ABORT return code. 


OPERATION: RTN1 checks the sign of the 
label number. If the sign is positive, it 
is replaced by the pointer to the cor- 
responding symbol table entry, and the sym- 
bol table entry is marked as “referenced.” 
If the sign is negative, indicating a 
reference to the next statement, it is 
replaced by the symbol table pointer, but 
is not marked as “referenced.” 


Negative values appearing in arithmetic 
IF statements are simply replaced with 
X*8000° to indicate fall-through. 
CEKJE -- Label Reference Processor (LAB) 


LAB checks flow as related to DO loops. 
See Chart CT. 


ENTRIES: LAB has one entry point, CEKJE1 
Input parameters are 
Pi -- Number of label references in 
PRF item 
P2 -- PRF index to first symbol table 
pointer 
P5 -- Pointer to PRF item 
EXITS: Only the normal exit is made, with 





no output parameters. 


LAB checks the legality of 
jumps from and into DO loops, as described 
under “Flow Processing" in FSCAN. 


The materialization list is marked as 
required, the necessary X loop and E loop 
list additions are made, and appropriate 
diagnostics are given when illegal fiow 
conditions are detected. 


LXT and ACGTFL are processed at the two 
points where a branch out of a loop is 
detected to a level of zero or greater than 
zero. If LXT equals 8000 or if LXT equals 


the Symbol Table pointer for tne current 
label, and if ACGTFL is down, then set LXT 
- to equal the Symbol Table pointer for the 
current label, and omit marking the MAT 
stack for the currently innermost level. 
Otherwise set LXT to 8001. 


CEKJF -- Statement Label Reference 
Inspection (ISP) 


ISP determines whetner referenced state- 
ment labels are properly defined. 


ENTRIES: ISP has one entry point, CEKIJF1. 
Input parameter is 


P2 -- PRF index to symbol table 
pointer 
OPERATION: The symbol table item of the 


referenced label is checked to see if itis . 


marked “defined. If it is not, a diag- 
nostic is issued and the undefined flag is 
raised. ISP is not entered to check the 
validity of FORMAT label references. A 
diagnostic is issued and the undefined flag 
is raised when erroneous references to FOR- 
MAT lables are encountered. 


CEKJG -- Format Reference Inspection 
(FORMAT) 


FORMAT determines whether referenced 
FORMAT statements are properly defined. 


ENTRIES; 
CEKJG1. 


FORMAT has one entry point, 
Input parameters are 


P2 -- PRF index to symbol table 
pointer 
P5 -- Pointer to PRF item 


OPERATION: The associated symbol table 
entry of the referenced label is checked to 
see if it is marked "defined." If it is 
not, a diagnostic is issued and the unde- 
fined flag is raised. A diagnostic is also 
issued and the undefined flag is raised if 
the class of the label item is not FORMAT. 


CEKJH -- Diagnostic Message Generator (Dx) 


DX generates diagnostic messages whenev- 
er error conditions are encountered. See 
Chart CU. 


ENTRIES: DX has three entry points: 
CEKJH1, CEKJH2, CEKJH3. The input parame- 
ters, for all three entry points, are 


Pi -- The Phase 2 diagnostic code 

P2,P3 -- Pointers to the symbol table 
or PRF item from which infor- 
mation is to be extracted. 


EXITS: Only the normal exit is made, with 
no output parameters. 


OPERATION: DX generates a diagnostic mes- 
sage by operating on a parameter list, from 
which another parameter list is generated 
for RDM. An input parameter may be one of 
two types. The first type is a parameter 
which merely points to a piece of prepared 
text. In this case, the address of a word 
containing the text length in characters 
and the address of the text are entered 
into a parameter list for RDM. 


The second type is a parameter which 
specifies that a certain predefined opera- 
tion is to be performed. In this case, an 
indexed branch on the parameter is made to 
the operation to be performed. Each of the 
operations extracts specified information 
from some table or file, such as the symbol 
table, performs any conversions required, 
and makes appropriate entries in the param- 
eter list for RDM. 


A parameter word containing zeros indi- 
cates the end of the input parameter list, 
and RDM is called to output the diagnostic 
message. 
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SECTION 5: 


PHASE 3 


INTRODUCTION 


The major function of Phase 3 is global 


optimization, which is the process of mini- 
mizing the number of object code instruc- 


tions to be generated by Phase 4. 


There 


are four categories of global optimization. 


1. 
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Removable Expressions. A “removable 
expression" is one whose individual 
operands do not have “definition 
points" inside the loop. A definition 
point is a statement in which the 
Variable has, or may have, a new value 
stored in it (e.g., appears on the 
left-hand side of an equal sign). In 
removing an expression, Phase 3 does 
not remove the left-hand side of an 
assignment statement nor a label. The 
"store" operation remains inside the 
loop. 


In the following example the expres- 
sion (BtC) is removable from the indi- 
cated loops, but the expression (A+D) 
is not, since the variable A has a 
definition point inside the loop 
(statement 10). 


DO 30 I=1,N 


10 A=BtC 
20 E=A+D 
30 CONTINUE 


eo 


Common Expressions. Two occurrences 
of an expression are considered to be 
common if the value of the expression 
cannot change between the occurrences, 
i.e., there are no definition points 
for any of the variables involved and 
there is no intervening referenced 
label. 


In the following example, the occur- 
rences of A+B in statements 10 and 30 
are considered common with each other, 
but not with the occurrence in state- 
ment 40 because there is an interven- 
ing referenced label. That is, state 
ment label 40O (which is referenced 
from statement 60) intervenes between 
the occurrence of A+B in statement 30 
and its occurrence in statement 40. 
Labels 20 and 30 intervene between the 
occurrence of A+B in statement 10 and 
its next occurrence; however, since 
neither label 20 or 30 is referenced, 
the occurrences are considered to be 


common. The expression (C+(A+B)) can- 
not be marked common in statements 10 
and 30 because the value of C changes 
(i.e., has a definition joint) in 
between, at statement 20. 


10 D=C+ (A+B) 

20 C=D+F 

30 E=C+ (A+B) 

40 IF (A+B) 50,10,70 
50 A=F+tE 

60 GO TO 4&0 


Subscript Expressions. Subscript ex- 
pressions determine which individual 
element of a dimensioned array is 
referenced. The expression may con- 
tain four types of constituents: 


a. An address constant (adcon) 
b. Induction variable parts 

c. Removable parts 

d. Nonremovable parts 


Each subscript has exactly one asso- 
ciated adcon. It is determined from 
the base address of the array variable 
itself and the collection of constant 
terms (done by Phase 1). 


The induction variable is the variable 
referenced in the DO statement of the 
loop. In the statement 


DO 10 I=1,N 


I is the induction variable (also 
referred to as the loop variable). 


For the removable and nonremovable 
parts the same criteria are applied, 
as described in “Removable Expres- 
Sions* above. 


In the following example, the terms of 
the subscripts involving I and J are 
induction variable parts (statements 
30 and 40). Removable terms are found 
in statement 30. The terms involving 
N are removable from both loops, and 
the terms involving I are removable 
from the inner ioop (statement 2 
loop). 


The subscript terms involving M in 
Statement 20 are nonremovable because 
of the M definition point in statement 
10. 


1 DO 50 I=1,k 
2 DO 40 J=1,i 
10 M=J+3 
20 Z (M)=A+M 
30 X(I)=Z(N) +¥(N) 
40 Y(J)=Y¥(T) +M 
50 CONTINUE 
b. 
DO loop control. It is a Phase 3 
responsibility to determine the method 
that is going to be used by Phase 4 to 
generate the loop control instruc- 
tions. The following are the types of 
loop control and the criteria for 
each. 
a. BXLE on recursive. 
This loop is controlled by a BXLE 
instruction of the form: 
BXLE Ri,14, LOOPTOP 

where R1 contains the recursive 

expression that has been initial- 

ized to zero at the loop top, 
register 14 contains the increment 
to be added to the recursive, and 
register 15 contains the test 
value. 

The requirements for this type of 

loop are: 

e There must be no reason to 
materialize the induction vari- 
able; e.g., the ISD option must 
be off, and the induction vari- 
able must not appear in the loop 
outside of a subscript. 

e Loop must be save, innermost, 
with no external calls. This is 
necessary Since Phase 4 is going 
to globally assign registers 14 Cc. 


and 15. 


e There must not be branches out 
of the loop to more than one 
label. If there is a branch to 
only one label, the induction 
variable is materialized on the 
exit path. 


e There must appear in the loop at 
least one subscript expression 
containing the induction vari- 
able as the ileast-removable 
term. The coefficient of the 


recursive must be a positive 
constant. 


The following is an example of a 
BXLE on recursive loop: 


REAL¥4 A (10) 
REAL*8 B (10) 

DO 10 I = 1,10 

10 BCI) = B(I)+A(T) 


In the example, both recursives 

are candidates for the BXLE, but 
the recursive on B, having more 

uses in the loop is selected. 


BCTR loop. 


This loop is controlled by a BCTR 
instruction of the form: 


BCIR 15,14 


where register 15 has been ini- 
tialized at the loop top with the 
count of times through the loop, 
and register 14 contains the 
address of the loop top. 


The BCTR loop requirements -are: 


e Induction variable does not need 
materialization. = 

e Loop must be save, innermost, 
with no external calls. 


The BCTR instruction is never 
selected if the loop also contains 
the recursive requirements to 
qualify for a BXLE on recursive 
loop. 


An example of a BCTR loop is: 


DO 10 I=J,K,L 
10 BCI) = B(TI) +tA(T) 


Since the loop step (and hence the 
recursive increment) is not a con- 
stant, the loop does not qualify 
for BXLE on recursive. 


Materialize and BXLE on induction 
variable. 


This loop is controlled by a BXLE 
instruction of the form: 


BXLE 1,14, looptop 


where register 1 contains the 
induction variable, register 14 
contains the loop step, and 
register 15 contains the test 
value that has been created by 
Phase 4. The instruction at LOOP- 
TOP is always a store out of 
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register 1 into the induction 

variable. The prime requirement 

of this loop is that the induction 
variable must be materialized; 

when a loop fails the requirements 5. 
for the other loop control 

methods, it is always material- 

ized, since there is no other way 

to count the loop. 


Phase 4 recognizes two versions of 
this loop. One, when the loop is 
innermost, safe, and has no 
external calls. In this case reg- 
isters 14 and 15 can be globally 
assigned in the loop. Otherwise 
temporary storage must be used to 
save and restore the registers. 
Two examples of the BXLE-on- 
induction-variable loop are: 


DO 10 I = 1,10 
IF (I .EQ. 1) 
ACI) = 0. 
10 CONTINUE 
pO 20 I = 1,10 
IF (I .EQ. 1) GO TO 20 
ACL) = SORT (ACI)) 
20 CONTINUE 


GO TO 10 


In both cases, I must be material- 
ized since it is referenced out- 
side of a subscript. In the first 
example, registers 14 and 15 can 
be globally assigned. In the 
second, they cannot be because of 
the call to the SQRT function. 


Compare and Test Recursive. 


This loop is controlled by a com- 
pare and branch-not-equal (BNE) of 
the form: 


CLR R1,R2 
BNE LOOPTOP 


where R1 contains a recursive 
value; R2 contains the test value 
initialized outside the loop and 
(in this example) is globally 
assigned. If R2 did not have 
enough weight to be globally 
assigned, then the compare would 
be to temporary storage. 


The only requirements for this 
loop is that there must be no need 
for materialization, and there 
must be at least one recursive ex- 
pression (a subscript term con- 
taining the induction variable). 
An example is: 


DO 10 J 1,10 
po 10 I 1,10 
10 A(I,J) = 0.0 


The outer loop, where j is the 
induction variable, will be con- 
trolled by a compare and branch. 


Global Register Assignment. In order 
to facilitate minimizing generated 
instructions, Phase 3 considers cer- 
tain items for permanent assignment to 
registers across a loop. The selec- 
tions are made by maintaining a popu- 
larity count for each item. The count 
is weighted for each type of candi- 
date, considering the value of having 
it globally assigned versus the value 
of not having it globally assigned. 
a. Adcons. WNeight = 5. 
b. Removable integer expressions. 
Weight = 5. 
c. Recursive expressions. Weight = 
10. 


d. Constant steps on recursive ex- 
pressions. Weight = 3. 


e. Expressions for testing the end of 
a compare-and-branch loop. Weight 
= 5. 


Some items that are used for generat- 
ing loop control instructions do not 
follow the normal selection methods. 
For example, in a loop where registers 
14 and 15 will be globally assigned by 
Phase 4, the items in those registers 
will mot be considered for assignment 
by Phase 3. In a BXLE on-recursive 
loop, Phase 3 always gives global 
assignment to the recursive expres- 
Sion, but never to the constant step 
on the recursive or to the test value. 


Phase 3 also considers one floating 
point guantity to be pseudo-globally 
assigned into FP register 6. 


This assignment can take two forms. 


a. Where the variable or subscripted 
variable on the left of the equal 
Sign can be kept in FP register 6 
through the loop, and stored when 
the loop is completed. 


The requirements for this assign- 
ment are: 


e Loop must be innermost, with no 
external calls. 


e ISD option must be off. 


e Loop must contain only one assi- 
gnment statement, plus any num- 
ber of blank or CONTINUE 
statements. 


Loop must contain no complex 
nonremovable operation or 2- 
argument intrinsic function. 


Assignment variable must be real 
and must not be flagged “inter- 
fering” in the symbol table. 


If the assignment variable is 
subscripted, the subscript must 
be removable to at least BL1 of 
the inner loop. 


If the assignment variable is an 


array element, references on the 
Yight side of the equal sign 
must be to the same element, or 
to an element which is known to 
never be the same. The loop is 
flagged only if all references 
are to elements known to be 
either the same element or never 
the same element. For example: 
ACI) = ACI) + ACI+#1) 
On the right of the equal sign 
A(I) is flagged as being in FP 
register 6, but A(I+1) is not 
flagged. The loop is flagged 
for global assignment, since A 
(I+1) can never reference the 
same element as A(I). 


In the following examples, the 
loop is not flagged: 


A(3) 
A(T) 


A(T) 
A(J) 


weit 


In this case, since it is not 
known whether I can equal 3 or 
whether I can equal J, the loop 
is disqualified. 


The reason for this restriction 
is that the array element on the 
left will not be updated in 
storage if it is globally 
assigned. Therefore, it is 
necessary to know at compile 
time which references to array 
elements on the right should 
obtain values from storage and 
which should obtain values from 
the globally assigned registers. 
If this determination cannot be 
made, a global assignment is not 
made. 


The first 3 requirements are 
determined by Phase 1, the last 
4 by Phase 3. If all require 
ments are met, the begin-loop 
entries are flagged for Phase 4, 
along with each EF item on the 
right-hand side that matches the 
assignment variable. 


b. When a loop does not meet the 
requirements of (a), one optimiza- 
tion which might still be per- 
formed is to select a floating 
point quantity that can be loaded 
into FP register 6 outside the 
loop. 


The requirements for this optimi- 
zation are that the loop must be 
innermost, safe, with no external 
calls. 


In its backward scan over the 
loop, Phase 3 selects the candi- 


date that is last processed. This 
candidate is deleted if a 
referenced label is reached, or if 


the current candidate appears as 
an assignment variable. In all 
cases, the candidate must be a 
Simple, real variable or a simple, 
real constant. 


In addition to the major function of 


Phase 3, many other functions are per- 


formed. 


A more complete description of 


Phase 3 is listed below. 


1. 


The program file (PRF) is scanned 
backwards. The expression file: (ERF) 
is scanned, when required, for the PRF 
item; and, a triad table is created 
for internal use with one entry for 
each unique expression. An operand 
pushdown table (OPT1) is created to 
assist in scanning the ERF. The PRF 
and ERF are modified to form the PF 
and EF, which are treated separately 
by Phase 3. These files are relinked 
in the forward direction and inter- 
leaved into a new program file (PF) 
that is the input for Phase 4. 


All variable and constant entries in 
the ERF are changed, with the OFFSET 
field replaced by a reference to an 
address constant and an immediate 
value of the displacement. The adcon 
is represented by a new type of entry 
introduced into the symbol table. 


All subscripts are rearranged. The 
adcon for the variable is placed in 
the expression, which is rearranged to 
remove the largest subexpression from 
loops, to handle loop variables by 
recursion, and to make use of double 
indexing. 


Common expressions are recognized and 
named. The point at which they are 
last used is marked. 
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5. Expressions that can be computed out- 
side of loops for use inside 
("removed") are recognized and named. 
They are inserted in tne EF at the 
loop top and removed from the EF 
inside, leaving a short “residue" 
entry there. 


6. Expressions that can be computed by 
recursive additions around a ioop are 
identified, and one (for each loop) 
for use as a test of the loop is 
determined. Th initial value, step 
values, and test value expressions are 
formed and treated as other expres- 
sions (see items 4 and 5 above). 


7. Quantities that are to be placed in 
registers and kept there over loops 
are determined and specified. These 
may be integer arithmetic operations, 
subscript expressions, or address con- 
stants. They are determined on the 
basis of total time saved and number 
of registers that can be used for such 
purposes. 


8. Each statement label entry in the sym- 
bol table is changed to contain a 
reference to an address constant (see 
item 2 above). The adcon entry is 
given an estimated vaiue based on the 
estimated location, which is then 
cleared. 


9. The formal arguments have variable 
adcons that must be computed at the 
preamble of a subprogram. These are 
listed in the formal argument adcon 
table (FAAT) for Phase 4. (The format 
of FAAT is explained in the module 
description "“CEKKS Phase 3 storage 
(PSECT).") 


A general description of the procedures 
used by Phase 3 to carry out its functions 
is given in the following paragraphs. 


Phase 3 makes a backwards scan over the 
PRF, rewriting it. By means of the links 
in the PRF, each value a variable assumes 
can be analyzed to determine the loops from 
which that variable can be removed anda 
point at which it can be first used in com- 
putation. This point is preliminary and 
can be moved if the PRF scan reaches a 
point where the value may change. Each 
reference to the ERF string from PRF 
entries causes a local forward scan over 
the ERF. An operand pushdown table is 
built and used during this scan. All 
operators are entered into the triad table 
for commonality determinations. Certain 
operators are put in a compute and removal 
item table (CRT). Subscript expressions in 
the ERF are scanned twice. First, deter- 
minations of computation points, removal 
levels, and use of loop variables are made. 
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Then the ERF is sorted into a new order, 
new operators are introduced, and the 
address constant is introduced into the 
expression. Finally, this new ERF is 
scanned again, and entries are made in the 
triad table and the compute and removal 
item table, as for other expressions. 


For DO loop processing, Phase 3 main- 
tains a set of loop tables for use in 
determining global register assignments, 
identifying loop variables, and determininc 
removal levels. 


MEMORY REFERENCE PROCESSING 


During the processing of Phase 3, all 
references to variables and constants 
(including address constants) are replaced 
by references to an address constant and a 
displacement. Adcons are supplied for eact 
storage class, with one separate adcon for 
each 4080 bytes. Adcons are supplied only 
when needed and are entered into the symbol] 
table to be shared with all other parts of 
the program. Negative adcons (e.g., 
storage class base -4080) are allowed. 


In computing the values for adcon and 
displacement, Phase 3 uses the storage 
class, the assigned location within that 
class, and, in some cases, the offset from 
that location supplied by Phase 1. At all 
times the FORTRAN object program makes use 
of one register that can cover the special 
page, part of which is assigned to adcons. 


The adcon reference and displacement are 
placed in the Polish string for the vari- 
able. In addition, the reference to the 
original variable entry in the symbol table« 
is kept for purposes of editing in Phase 5. 
When a subscript expression modifies a 
variable and the adcon is referenced in 
that expression, the adcon reference from 
the variable in the Polish string remains 
zero. 


Whenever constant subscripts result in z 
reference to other than the first byte of 
an array but no subscript expression 
occurs, a special subscripting operator is 
entered in the triad table. This operator 
is called the "a" or “Addressing” operator. 
This operator is strictly internal to Phas« 
3; it is used only in the triad, not in the 
EF, to distinguish between references to 
other than the first byte of an array. 


COMMON EXPRESSIONS 


A common expression is one that is used 
more than once, but needs to be computed 
only once. Phase 3 determines the exis- 
tence of these in most cases; it gives eacl 
a distinct identifying number (name) and 


marks one occurrence of this expression in 
the last Polish string in which it occurs 
as “last use." Three separate determina- 
tions must be made: 


1. It must be determined which expres- 
sions are identical in form. 


2. It must be determined that occurrences 
are necessary or “valid” (i.e., two 
occurrences as part of the same larger 
common expression require only one use 
of the smaller expression). 


3. It must be determined that the expres- 
sion cannot change in value between 
occurrences. 


Identity is determined by the triad 
table. Every expression is changed toa 
triad (operator plus references to its two 
operands) that is identical for identical 
expressions. For each expression the triad 
table is searched to determine whether the 
expression is already there; if it is not, 
it is inserted. If the expression is 
already in the table, it may be a common 
expression, depending upon the results of 
the other two determinations. 


The determination of the occurrence of 
two valid uses is made by another 
algorithm: whenever an expression occurs 
after the first time and either is part of 
a larger expression that is occurring for 
the first time or stands alone in a state- 
ment, this is the second valid occurrence. 
When this situation exists, it becomes 
necessary to mark previous occurrences 
(sometimes, in a previous larger expres- 
Sion, there may be more than one that were 
not all valid). This is done by keeping a 
pointer in the Triad Table entry to the 
“last occurrence.” Whenever an unnamed 
expression is entered or located in the 
triad table, a reference to the triad is 
made in the ERF string entry. Then, when 
an ERF string entry is copied into the EF 
without receiving a name, the pointer in 
the triad table is set to point to this EF 
String. At the time an expression is 
named, the EF string pointed to by the 
triad table entry is scanned, and the 
occurrences of this expression in that str- 
ing are recognized by the reference to the 
triad. The field used for that triad 
reference is now used for the name. 
Whenever a name is entered in an EF entry, 
the expression is changed to indicate a 
named expression; and, if this is "last 
occurrence,“ the "last use” flag is turned 
on. If a second valid occurrence occurred 
in the same string as the first, the “last 
occurrence” field is X*"8000°. In this 
case, the *last use“ bit is turned on in 
the current EF, and other occurrences are 
named later when the ERF string is copied 
into the EF. 


In order to determine that the value of 
an expression does not change, Phase 3 must 
consider the component of each expression. 
Every variable entry in the symbol table 
has pointers (FDP and BDP) to forward-and 
backward-linked chains in the PRF of its 
definition points. There are also linked 
chains for definitions of COMMON variables 
and definitions of arguments. COMMON 
variables are defined at their own defini- 
tion points. Arguments are defined at 
every definition point for any argument and 
for COMMON definition points. Every vari- 
able is also marked when it is a loop para- 
meter over any loop in the current nest, 
and it is, therefore, of fixed value over 
that loop. The loop tables indicate the 
range of every loop in the current nest (in 
terms of PRF entries) and indicate which 
loops are “unsafe” (have entry points from 
an outer loop). By scanning this informa- 
tion, Phase 3 can determine which loop, if 
any, is the outermost loop from which ex- 
pressions containing only this variable can 
be removed. This level is entered in the 
symbol table entry for the variable as the 
RLEV field (removal level). If the nearest 
definition point (forward) lies outside a 
loop from which the variable cannot be 
removed, the forward compute point (FCP) is 
set just inside that loop; otherwise, it is 
set at the nearest definition point ~ 
forward. . 


This determiration does not take into 
account all possibilities that may limit 
the range of commonality. The other lLimi- 
tations are the occurrence of referenced 
labels, the occurrence of loop endings of 
unsafe loops, and the occurrence of the FCP 
(determined above) inside a new loop. 

These are determined as the PRF is scanned 

further and are used to terminate the range 
of the commonality if it has been set up or 
to prevent its being set up. 


The mechanism for keeping track of the 
range and terminating commonality is the 
compute and remove item table. Here every 
named expression has an entry that is keyed 
to the FCP (or the removal point) in the 
PRF. These are scanned in parallel with 
the PRF. For compute point entries the 
range of commonality is terminated when the 
point is reached. Whenever a loop end or a 
referenced label is reached that might 
limit the range of commonality of some 
entries, this table is consulted and the 
commonality terminated. Commonality is 
terminated by removing the name from the 
triad table entry and appropriately marking 
that entry. 


When a common expression is named, it 
must be determined that referenced labels 
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or terminating loop ends have not inter- 
vened between the “last occurrence” and 
this one. This can be checked by the loop 
tables and the backward chain of referenced 
labels. If such intervention has occurred, 
the expression is not named, and the cur- 
rent EF string becomes the last occurrence. 


REMOVING EXPRESSIONS FROM LOOPS 


Computing time can be saved when an 
expression that occurs within a loop can be 
computed outside that loop for use inside. 
Expressions that contain the loop variable 
and are common over the loop comprise a 
special case. Since a new occurrence is 
introduced at the point of removal, expres- 
Sions that are removed are aiways treated 
as common, even if they occur only once 
within the loop. However, for purposes of 
producing better object code, it is not 
always desirable to remove an expression 
from Level 0 (the false loop) if its only 
occurrence is at Level 0. Therefore, such 
an expression is treated as not removable 
at its first occurrence. If there are 
other occurrences, the first is marked com 
mon with them and the expression is treated 
aS a normal removable expression. 


Some of the mechanism for handling 
removal is discussed above in the explana- 
tion of the determination of the removal 
level (RLEV) of expressions. If an expres- 
sion is part of a larger expression that 
can be removed, it is ignored within the 
loop and treated at the loop top when the 
larger expression is inserted there for 
computation outside the loop. If an expres- 
sion can be removed but the expression 
that contains it cannot, or if it stands 
alone, it is removed. At the first occur- 
rence of the expression within the loop, it 
is removed after it is given a name, after 
commonality with any previous occurrence 
(outside the loop) is established, and af- 
ter last usage is marked. Removal consists 
of placing a pointer in the compute and 
removal table at BL1, marking the triad 
entry properly, and replacing the Polish 
Expression in the EF by a residue entry 
with the expression name. 


A special type of removal expression 
occurs when an induction variable is 
involved in an expression that is not ina 
subscript. Here the variable has a compute 
point inside the loop (BL3) and is remov- 
able from the inner level. When such an 
expression is encountered, either as a com- 
mon expression or a removal item from an 
inner loop, a special test inside the com- 
monality routine allows the expression to 
be common, despite the possible interven- 
tion of labels. These items are removed to 
BL2, after their commonality is established 
and their last use marked. It is possible 
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for such an expression to occur only as a 
residue and to occur elsewhere as a named 
expression that is still present. 


When the removal point is reached at 
BLi, BL2, or BL3, the Polish expression is 
reconstructed from the triad table and 
inserted in the EF, except for subexpres- 
sions that may be further removed. At this 
time, the commonality of all expressions 
and the removability of all subexpressions 
is treated in the same manner as expres- 
sions that occur elsewhere in the code. 


OPTIMIZING SUBSCRIPT COMPUTATION 


Terms involved in the subscript expres- 
Sions are divided into four categories: 


1. An adcon 


2. Induction variable (or recursive) 
terms 


3. Removable terms 


4&4. Nonremovable terms 


The adcon for the subscript expression 
is always determined by Phase 3 from the 
SLOC field of the array variable and the 
offset that computed Phase 1. 


The terms of the expression are grouped 
according to the four types and then sorted 
by removal level. The adcon is always the 
most removable entry. The induction vari- 
able or recursive terms are considered spe- 
cial within a removal level group. A 
recursive expression is one that increases 
by a fixed amount each time through a loop. 
These expressions are treated specially, in 
that they are considered removable only to 
begin loop-2 of a level rather than to 
begin loop-1 as for a normal removable 
expression. Therefore, if two terms of a 
subscript expression have the same removal 
level but one is a recursive term and the 
other is not, the recursive term is consid- 
ered less removable for the purposes of 
sorting the terms. 


Special operators are introduced into 
the expression to separate the groups of 
sorted terms. A recursive operator (!) is 
used to mark the induction variable terms 
internally for Phase 3. Another special 
operator, the base/index split operator 
(?), is used to separate the nonremovable 
terms from all the removable terms. If 
there are no nonremovable terms, but there 
is a term of the form ‘I a ** where I is 
the induction variable of an innermost loop 
with no external calls, and ‘a‘ is a con- 


stant or a multiply expression (only vossi- 
ble if the array has adjustable dimen- 
Sions), then ‘I a ** is converted to ‘a o!' 
and the major operator is converted to a 
‘2°. The ? operator can appear only once 
in any subscript expression, and it is 
passed on to Phase 4 to indicate that a 
base-index method can be used to reference 
this array. All other terms are connected 
by plus signs. 


= 


The best method for explaining this 


function of Phase 3 is by the use of expres- 


sion diagrams. The diagram, called a 
"tree," can show the exact relationship of 
all terms of an expression. By convention, 
the left-hand operand of an operator repre- 
sents the left-most term of the original 
FORTRAN expression. Therefore, the expres- 
sion (A+B) is written. 


a 
A B 


and the expression (B*A)+C is written 

+ 
B A 
With this basis, the subscript expression 
processing can be examined further. In the 
following discussion, all constants are 
referred to as CONST and all address con- 
stants as ADCON, since their actual values 
are not relevant. The operator that links 
the subscript expression to the array vari- 
able is the colon (:). A reference to the 
variable A(I) that comes into Phase 3 is 
essentially the same under any conditions. 
However, the Phase 3 output to Phase 4 
depends on the conditions of the variable 


I. The four possible output expressions 
are: 


A + 
/™ 
‘ ADCON 
a 
CONST  ! 


In this case, I is removable but is not an 
induction variable. 


eo 
J™N 
Yo ADCON 
CONST |! 


In this case, I is nonremovable. 


' gor es 
a: 
1 ADCON 
\ 
CONST ZERO 


In this case, I is the induction variable 
of an inner loop with no calls. 


gi 
S ADCON 


CONST i 


In this case, I is the induction variable, 
but the loop does not qualify to have a 
Split subscript as in (c). 


To show the gathering of terms according 
to removal level, the tree for the variable 
B(I1,32,13,J31,12,33) is shown: 


a i 
we in 
Fs we 
CONST 13 ae ee ae + 
CONST 12 CONST J2 L ee 
oN 
CONST \ sae i 
I1 and J1 -- removable furthest to level 


1; i.e., they are the most removable 
(the lower the removal level, the 
more removable the item is), 
I2 and J2 -- removable to level 2, 
I3 and J3 -- not removable. 
None are induction variables. 
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Therefore, the completely general sub- 
script expression for an array variable 
appearing at level n can be described as 
follows: 


2 


Array Variable 


Terms Not Removable 


from Level n. i 


Kase riage if 
the Induction Variable 


A Collection of All 
2 


for Level M is the 
Least Removable ie 


G Collection of All Terms Involving the sais We aad 
Variable for Level (n=1). Te 
G Collection of All Terms Removable to Begin Loop~1 of) oom 


Level 1. 
(A Collection of All Terms Removable to Begin Loop] of Level 0). 
ADCON 


involving the Induction 


A Collection of All —_ 
Variable for Level n 


Collection of All Terms Removable to 
Begin Loop-1 of Level n. 


( Collection of Ail Terms Involving the Induction ) 
Variable of Level 1. 


If there are no terms of the type indi- 
cated, the associated operator does not 
appear and, ali terms below it are moved 
up. The only possible occurrence of the 
operator is immediately below the colon. 
Therefore, if there are any nonremovable 
terms, the right-hand operand of the colon 
is a question mark, since the adcon is 
always considered removable. Therefore, 
the operands of a question mark are always 
categorized in the same manner: the left- 
hand operand is the index expression and 
the right-hand operand is the base expres- 
sion (always removable), thus setting up 
the base/index method of addressing for 
Phase 4. 


v 


The form shown above for the generalized 
subscript expression is used only internal- 
ly to Phase 3. In the final form all 
removable and recursive expressions are 
replaced in the EF by a residue entry that 
indicates to Phase 4 the name of the 
removed expression. The removed expres- 
sions are then attached to the appropriate 
BL1 or BL2. 


Two passes are made across each sub- 
Script expression in order to accomplish 
the optimization. 


During the ERF scan the occurrence of a 
subscripted variable is indicated by a flag 
for that variable set by Phase 1. This 
flag is checked immediately after the adcon 
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has been formed, and at that time the adcon 
is saved for later use. During the first 
scan, triads in the triad table are left 
unchanged with regard to occurrence flags, 
and new entries are marked as having no 
occurrences since the last compute point. 
During this pass no changes are made in the 
compute and remove item table. When a + is 
reached, the operand pushdown table con- 
tains entries representing a string of 
operands to be added to form the subscript 
expression (in addition to any earlier 
entries). The remaining + and : operators 
are ignored on this first scan, which is 
terminated at this time. 


The rearrangement subroutine (CEKKM) 
determines the number of operands (includ- 
ing the one it inserts; i.e., the adcon) 
and sorts entries in the operand list. It 
then moves the ERF strings representing 
these operands to a temporary area. The 
program that moves them back in resorted 
order operates at two levels: one for the 
individual operand expression and another 
for each block of expressions that have the 
same sort key. At the end of each such 
block, an operator (+, !, or ?) is placed 
in a pushdown list and later used to con- 
nect this block to the others. Sufficient 
+ operators are inserted in the string at 
the end of each block to connect the 
operands in the block. Tests are made to 
determine the location of the adcon. The 
main ERF scan is reset to start again at 
the beginning of the subscript expression. 
Phase 1 has inserted two extra + operators 
following the : to allow for the insertion 
of the adcon and the proper operator (+, ! 
or ?). 


LOOP VARIABLE EXPRESSIONS 


The induction variable is always given a 
forward compute point at begin loop-2 of 
its respective loop. When an induction 
variable is recognized inside a subscript, 
it causes the recursive operator as 
explained above. When an induction vari- 
able is recognized outside of a subscript, 
the materialize flag is set for the loop 
and special processing is applied to common 
expressions involving the induction vari- 
able. The special @ operator is also used 
whenever an induction variable occurs out- 
side a subscript. This is necessary to 
distinguish references inside and outside 
its loop and to prevent erroneous marking 
of common expressions. 


When the begin loop-3 entry is reached 
at the loop top, all expressions removed to 
begin loop-2 are examined. All those that 
do not have an exclamation point as the 
major operator are really BL3 items. A 
flag indicates whether any labels have 
occurred in the loop. If none have 


occurred, the nonsubscript loop variable 
expressions are common within the loop and 
require no special- treatment at the loop 
top, except to terminate the range of their 
commonality. If a label has occurred, 
these expressions must be computed at the 
loop top just inside the loop. They are 
reconstructed in the EF and attached to BL3 
for this purpose. 


The recursive expressions are attached 
to BL2, with modification to perform the 
recursion optimally. Each recursive ex- 
pression is considered in two parts. The 
right-hand operand of the exclamation point 
can be an expression or an adcon; it repre- 
sents the initial value of the expression. 
The left-hand operand represents the amount 
by which the recursive expression is 
stepped at the bottom of the loop. Phase 3 
locates the induction variable in the step 
expression and replaces it with the step 
parameter of the loop. 


When the materialize flag is on for a. 
loop, Phase 4 tests for the end of the loop 
with the loop parameters. When the 
materialize flag is not on for a loop, 
Phase 3 creates a test expression from one 
of the recursive expressions for use in 
testing the end of the loop. 


GLOBAL REGISTER ASSIGNMENT 


The general registers are used for 
integer arithmetic expressions, subscript 
expressions, adcons for variables and con- 
stants, address constants for control 
transfers, and other purposes. Phase 3 
considers certain uses of them for per- 
manent assignment over one or more loops 
and if the most time can be saved this way, 
makes such permanent assignment. (The 
actual register to be used is determined by 
Phase 4.) A limit (currently 8) exists for 
the number that can be assigned to ensure 
that sufficient registers remain to allow 
Phase 4 to generate efficient code. 


When the loop lists are initialized at 
any end loop PRF entry, a null chain is set 
up of candidates for global assignment over 
that loop. Whenever any expression occurs 
aS a candidate, the chain is searched and 
that expression is found or inserted. A 
popularity count associated with this usage 
is added to the cumulative popularity count 
for that expression over the current loop. 
At the loop top (BL1) these entries are 
sorted by popularity, and the process of 
determining successful candidates is 
started. 


The loop lists have a linked chain con- 
necting all the loops one level higher 
(inner) and parallel to each other. The 
process of determining successful candi- 


dates at this level, readjusting the lists 
for these internal loops, and placing the 
results for Phase 4 requires that there be 
three passes over the chain of internal 
loops. 


A first pass over the chain of parallel 
inner loops actually determines a success- 
ful candidate. For each inner loop, a test 
is made to determine whether the expression 
has already been assigned globally or if 
the total count of global registers is less 
than maximum. If neither condition pre- 
vails, the candidate cannot be assigned 
globally, and it is removed from the outer 
loop list. A count is kept for the outer 
loop (there may be no inner loops); and, if 
that count reaches the maximum, the 
remainder of the list is removed. 


Immediately after the first pass, a 
second pass over the chain of inner loops 
is made for each successful candidate at an 
outer loop. This pass updates each intern- 
al list by increasing the count for that 
inner loop, if the candidate was not pre- 
sent in the inner loop. 


The final pass over the chain of inner 
loops is made after the outer loop candi- 
date list has been exhausted. This ‘pass 
takes the assigned global expressions 
remaining for each inner loop (those that 
are not global in the outer loop) and links 
them into the chain of the outer loop. 

This makes a candidate available soeeuae an 
unsafe loop to level 0. 

Phase 3 also selects, for Phase 4, one 
floating point constant or (in its backward 
scan) one floating point variable which is 
referenced in an inner, safe loop with no 
external calls. Phase 4 will load this 
quantity into a register outside the loop. 


ROUTINE DESCRIPTIONS 


Phase 3 routines bear only coded labels. 
These 5-character labels begin with the 
letters CEK; the fourth and fifth letters 
identify a specific module. Various entry 
points to a module are identified by a 
Sixth character added to the coded label; 
for example, the coded label for the Phase 
3 master control routine is CEKKR, and 
there are entry points CEKKRA and CEKKRE. 
Any mnemonic name beginning with the let- 
ters TEV refers to a compiler executive 
routine or entry name, rather than toa 
Phase 3 routine. The corresponding coded 
label is given in parentheses immediately 
following the mnemonic. 


There are no hardware configuration 
requirements for any of the Phase 3 rou- 
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tines. All these routines are reentrant, The relationships of routines constitut- 


nonresident, nonprivileged, and closed. ing this phase are shown in the following 
All except the Phase .3 PSECT (CEKKS) and nesting chart (Figure 22) and decision 

the Phase 3 Master Control Routine (CEKKR) table (Table 23). The relationships are 
use restricted linkage, are entered by the shown in terms of levels; a called routine 
INVOKE macro instruction, and return to the is considered to be one level lower than 
calling routine by the RESUME macro the calling routine. Phase 3 Master Con- 
instruction. trol routine is considered to be level 1. 


Level 
l CEKKR 


TEVRDM 
2 CEKKB CEKKU 


TEVFL4 


— 
m 
< 
yp 


CEKKI CEKLF 





3 CEKKO CEKLB CEKKG CEKKP CEKKN CEKKJ CEKLD =a] 


6 TEVFL4 CEKLA CEKLE 


Figure 22. Phase 3 Nesting Chart 


Table 23. Phase 3 Decision Table (Part 1 of 4) 


Routine:-~-—~-----—-~--Phase 3----~—-—-—-~--——-~——--—-—~—--—-—--—-—~—-—-—---—----—-~----+ Level: 1 -----~----—-- 
ee a eee ae Gan ee ee ee 
| | | Called | | 
{Routine | Usage |Routines | Calling Conditions | 
-—---— $-~----------—------------ $= ------ f+ == === == $f 
| CEKKR {Directs the sequence of  |CEKKU [To edit each PRF entry. | 
| | processing prior to | CEKKB {To generate removed, recursive, and induc-| 
| | editing of each of the | | tion variable expression at loop tops. | 
| | PRF/ERF entries into | CEKKA |To search the Compute and Remove Table for| 
| | PF/EF Output. | | Triad entries pointing to the current | 
| | | | PRF entry. | 
| | | TEVRDM }To print a diagnostic message when an | 
| | | | error condition is encountered in any | 
| | | | part of Phase 3. | 
| | | CEKKO |To tally popularity for global register | 
| | | | assignment of recursive expressions. | 
esa. BE Sc ice ee ae ee er Maat aie aca i crs ee re ree ean J 


Table 23. Phase 3 Decision Table (Part 2 of 4) 


foes CS a er Toon Me gee en ge Te 1 
| | | Called | | 
{Routine | Usage JRoutines | Calling Conditions | 
-~------ }----=--------------------4---------}------------------------------------------4 
| CEKKU |To edit each PRF entry | CEKKE |When an ERF expression is to be processed. | 
| {| into an equivalent PF | CEKKV |To process the Begin Loop-1 PRF entries. | 
{ | entry performing the | CEKKW |To process the Begin Loop-2 PRF entries. | 
| | necessary functions to |CEKKC |To precess the End Loop PRF entries. | 
| | accomplish this. In | CEKKO |To tally global register popularity for | 
| | addition uses subrou- | | the code covering Adcon. | 
| {| tines to edit the asso- |TEVFL4 {To file a Symbol Table entry for an Adcon | 
| {| ciated ERF entries into] (CEKTPI)| to cover branches in the object code. | 
{ | the EF format | | | 
[------— $------------------------- +--------- }------------------------------------------ 
| CEKKB |To generate rer oved | CEKLB {To file an Adcon entry in the Symbol Table| 
| { expressions at Begin | | covering a variable and compute the | 
| | Loop-1; recursive | | displacement. | 
| | expression at Begin | CEKKO {To tally the popularity for global | 
| {| Loop-2; and induction | | register assignment for Adcons and | 
| | variable expression at | | integer expressions. | 
| | Begin | TEVI4S |To file a Symbol Table entry for a new | 
| { | (CEKTFC){ generated constant for recursive | 
| | | expressions. | 
a a Se ie ae a ke a a J 
Rout ine:-—--—--—-—-——-—-—-- Phase 3-——--—--—--—---~-—-—-—-—--—-~—-——-—--—-—-—-—--—--—-—-—-+-—-—-- Level: 3 --—--—-------— 
asec sl SS a a a aR aca Ta 
| CEKKE |Controls the processing |CEKKF | Entered when a primitive is encountered in| 
| | of an expression in the | | the ERF to generate the OPTi entry and | 
| | by the use of subrou- | | modify the ERF entry. | 
| | tines, and the editing |CEKKH |To create a Triad entry when an operator | 
| } into the EF. | | ERF entry is encountered. | 
| | | CEKKI |Entered for each operand of an expression. | 
| | | CEKKM j Entered to process a subscript expression | 
| | | | when the first plus is encountered. | 
| | | CEKKL {Entered when an expression's operands have| 
| | | | been processed to generate an OPT1 entry| 
| | | | for the expression. 
| | | CEKLF [Entered when the complete expression has _ | 
| | | | been processed to move it from the ERF | 
| | | | to the EF. | 
|------—- ---------------—----—--- -----—---} --------------------------------=--------4f 
| CEKKW {To process the Begin | CEKLI JEntered when a test expression is to be | 
| | Loop-2 PRF entry. If the] { generated for the loop. | 
| {| loop is to be material- |CEKLB |Entered to file a covering Adcon and | 
| | ized, loop parameters | | determine the displacement for each loop] 
| | are put into the EF; | | parameter when the loop is materialized. | 
{ {| otherwise, a test ex- | CEKKO |To tally popularity for global reg- | 
| | pression is generated by| | ister assignment for the induction vari-| 
| | subroutine. | | able if the loop is materialized. t 
}------— $--------- ---------------- $---—---- }------------------------------------------ 4 
| CEKKV |To process the Begin | None. | | 
| | Loop-1 PRF entries. | | | 
| | Determines which candi- | | | 
| | dates are to be globally| | | 
| | assigned. | | { 
|--------+-------------------------}-----—---4---------------------------------=--------4 
| CEKKC {To process the End Loop |CEKKA {To find those Triads whose Forward | 
| | PRF entries { | Compute Point falls within the loop so | 
| | | they can be deleted. | 
| | | CEKKG [Entered for each loop parameter to deter- | 
| | | | mine the removal level and the forward | 
{ | | {| compute point. | 
a a a a gg ce ernie dl 
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Table 23. Phase 3 Decision Table (Part 3 of 4) 


into the EF a test ex- 
pression to be used at | 
bottom of a loop to test|CEKKO 
for the end conditions | 
of the loop. 


3 
Symbol Table and compute displacement. | 
To tally popularity for global register | 
assignment for covering adcons and inte-| 

| ger expressions. | 
TEVI4 | 
| 

| 

| 


Rout ine:-—-—-——-—--—~- Phase 3~--—~—---—-~—~—-—~—--——-~--—-—-~-—~+-—-—~—-—--—-—-—-—-~---—----Level: 4 --~--------~- 
Gg tery SUN ee Bia ag leg ee a ga alae es IE ee a oe a ae a ES ee a RE Cee ogi ep ae a I ay ae gig eg gee or 
| | | Called jj | 
|Routine | Usage {Routines | Calling Conditions { 
|-—---- --}----------=-------------- +---—---- $---------------------------+-------------- 
| CEKKI |To process each operand |CEKKJ {To determine if two expressions can be : 
| | of an expression. If it | | considered as common. | 
| | is primitive, the Adcon |CEKKK | Entered to name each common and removed | 
| | is considered for global| | expression. | 
| | assignment. If it is an |CEKLE [Entered for removable expressions to file | 
| | expression, it is con- | | as entry in Compute and Remove Table. | 
| {| sidered for removability]|CEKLD {Entered for removable expressions to | 
| | or commonality. | | replace the expression with a residue | 
| | | } entry in the ERF. | 
| | | CEKKO jTo tally popularity for global register | 
| | { | assignment for Adcons and removable | 
| | | | integer expressions. | 
}------—— }------------------------- +---—---—- fa---——=----- 4 
| CEKKA jTo search the Compute and|None. | | 
| { Remove Table for Triads | | | 
| {| which fall within the | | | 
| | requested PRF limits. | | | 
}-----—-4------------------ ------} —------ f nnn nnnn 
| CEKKL {To form an entry in the’ |None. | | 
| | OPT1 representing an ex-| | | 
| | pression as an Operand. | | { 
}------— $------------------------- $-—-—---=- {~~---------------------------------------- { 
| CEKLF [To copy the edited ERF | None. | | 
| | entries for an expres- | | | 
| | sion from the ERF to the| | | 
| | EF, inserting the newly | | | 
| | created entries where | | { 
| | indicated. | | | 
}------ —+}-------------------------}-—-------}} ----- ---- +--+ ------ === == 
| CEKKF |To update the Symbol | CEKKG {Entered for each variable ERF item to find| 
| | Table entry of a vari- | | its removal level and forward compute | 
| { able (by subroutine), to] | point. | 
| | change the ERF entry to |CEKLB {Entered for each variable ERF item to file| 
| { reference an Adcon and | | a covering Adcon in the Symbol Table | 
| | displacement, and to | } and compute the displacement. | 
| | form an entry in the | [Entered when a dummy ("at") Triad is |. 
| | OPT1 for the operand. | | generated for an induction variable or | 
| | Also, a dummy expression | {| a variable with an associated offset, | 
| | is generated for special| | to file the entry in the Triad Table. | 
| {| conditions. | | | 
[-------- {----~---~--------------—-}-—-—---— }-------—-------------—---------------—--—- { 
| CEKKH {To generate a Triad from |CEKKN [Entered for all expressions except those _ | 
| | an ERF operator and two | | inside subscripts to put the operands | 
| | operands in the OPT1. | | into canonical form. | 
| | | CEKKP {Entered for all expressions to file the | 
| | | | Triad entry or locate its previous | 
| | | | existence. | 
[--~---— }~------------------------ +---—----- $--------------------------------=--------- { 
| CEKKM |To revise a subscript |None. | 
| | expression to include | | 
| | the Adcon and optimize | | 
| | the loop variable and | | 
| | removed expressions. | | 
}------— }------------------------- $---—----}------------------------------------------ { 
CEKLI {To generate and insert | CEKLB Entered for each loop parameter which not 

i | 

| 

| 

{ 

l 

| 

| 

| 

{ 


| 
| 
| 
| 
| 
| 
{| a constant to file a covering adcon in 
| 
| 
| 
| 
| 
| 
| 
| 
1 


[FR ome re cee ee cates aes ae eee em mee 


| To file a Symbol Table entry for a con- 
| (CEKTFC) stant generated from the combination of 
{ other constant forms in the test 
| expression. 
po Be a i ia aaah ae le Sa eee ate J 
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Table 23. Phase 3 Decision Table (Part “4 of 4) 


Routine: -——-—--—-----~Phase 3-—--—----~---~ #-—--- +--+ - +--+ Level: 5 #s+--s<25-- 
Re pn a er rere re a ee Tea Ger ag ae se ge ete Te 1 

{| Called | | 
[Routine | ~ Usage [Routines | Calling Conditions | 
~-------}---=---- = =~ ~~~ == f+ == fn nf 
| CEKKI {To determine if two oc- {|None. | | 


| . | curences of an expres-_ | | | 
| | sion are common. | | | 
}--------4-------------------------}---------4 -—----------------------------------------] 
| CEKLD {To replace a removed | tone. | | 
| | expression in the ERF | 

| with a residue entry. | 
-------— + + 
CEKKO |To find a GIRL entry and {None. 

| add in the new popular- | 

| ity count or, if none | 

{| already exist, to create] 

| a new GIRL entry. | | 
bona fn nnn nn nn nf nn nf nnn nn nn nn nnn nnn nnn 
| CEKKN {To put the operands of an|None. 
expression into canoni- | 
cal form to facilitate 
finding common expres- 
sions. 


{ 
\ 
| 
[ 
+ 
CEKKK {To assign a name to a 
{ 
| 
{ 
l 
| 
{ 
| 
| 


Entered when a previous occurrence of the | 
expression is to be marked common in EF. | 
Entered for every named expression to file| 
an entry in the Compute and Removal | 
Table at the forward compute point of | 
| 

| 

| 

| 


cadlne veer eames meney eevee aoeme eulee ete ames See eee ane 


common or removed 
expression, and by sub- 
routine 1) put the name 
into the previous occur- 
rence of a common ex- 
pression, and 2) file 

a CRT entry for the 
expression. 


the expression. 


Ae A SEO tl is te ES EES AE AD cee DED SEE SD EES iS ES eS DD GD ee a ee ee Oe oe ee ee 


|To enter new expressions 
{| into the Triad Table, 

{ locate common Triads, 

| and delete obsolete 

| Triads. 


{To determine the removal 
| level and forward con- 
| pute point for a vari- 

| able and store the 
| information in its 
| Symbol Table entry. 


Rout ine:-—--—--—---—-—-—~ Phase 3--—~--~---—----——-—~—--—--—--—--—--—+—-—--———+~-—----- Level: 6 ------------ 

CF ee Se ee ee a ee ee ee a 

| CEKLB {To file a covering Adcon |TEVFL4 {Entered for each variable to file cover- | 
entry in the Symbol { (CEKTFI) | ing Adcon in the Symbol Table. 

Table, compute a vari- 

ables's displacement, 

and file entries in the 

Formal Argument Adcon 

-Table 


To replace a removed 
expression's ERF repre- 
sentation with a residue | 
entry. i 

fan a nan nn nnn fn a fn nn rr ern ren 

| CEKLE {To file an entry in the |None. | 
| Compute and Removal { 
| Table at the indicated | 
| | PREF location. | 
i L 


cs ee es a Sle es ee es sel 
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CEKKS -- Phase 3 Storage (PSECT) 


This routine supplies storage for Phase 


3 


A brief description of most table and 
item formats follows. Most other variables 
will occupy one word. The Phase 3 Storage 


map is shown in Figure 23. 


Phase 3 Loop Tables 


1. LEV - 1 full word, contains the level 


of the current loop. 


2. Current Nest Table (CNT) (Fixed, 55 


entries long): 


0 15 16 


a a eee tt a eae ein ee wend ae a me ~~ ~ - -- 7} 


| TLINK i PLINK 


Dn ce ae ers ce ee ee ct ee es ee oe hie a ee eee es ee ew en ee er ee ee 


TLINK Loop in current nest, this 


level (PLP) 


PLINK Chain of parallel loops, next 


level (PLP) 


3. Parallel Loop Table (PLP) 


CNT is 224 bytes; the 55 allowable 
entries require 220 bytes, and the 
false loop over the whole program 
accounts for the remaining four bytes. 


0 15 16 23 24 31 
Ge ee ee ee 
| BL3PT [ BLIPT | 
}------~---------- $-~---------------- { 
| ENDLPT | GPLNK | 
}----------------- $------~-- q-------- 
| PLINK |} GPN |PLPFLGS | 
}----------------- $--------- 1—------- { 
| BL2PT | IVAR | 
ee pe ee ete: J 
BL1PT,BL2PT, Begin-loop entries (PRF) 
BL3PT 
ENDLPT End-loop entry (PRF) 
GPLNK Chain of global register 

expressions 
PLINK Link in parallel loop 

chain 
GPN Number of global register 

expressions 
PLPFLGS 80 = Labels occurred in 

the loop 
40 = Unsafe loop 
20 = Materialize loop 
variable flag 

10 = Parameter 

08 = Global flag 

04 = BXLEREC flag 

02 = ONEASN flag 
IVAR Symbol Table entry of the 


induction variable 




















Flags - 17 bytes 


Special Type Table - 18 bytes 


Ist page 





2nd page 


Work Area Used for Temporary Storage, Triad Table, 
Parallel Loop Table, Global Register List Table, 
SERF Table, and Compute and Removal Table-56 ,844 
by tes 


Pages 3-16 


Reentrant Code 


Executable Code Plus Constants -10,000 bytes 


Figure 23. Phase 3 Storage Map 
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Dummy Paralle! Loop Table entry for '-1' level -12 bytes | 


Global Register List (GIRL) (Linked, 
Permanent) 


0 15 16 31 
CS ee Co ee ea 1 
| GLBL | GPLNK | 
}|-------------------- {-------------------- 
| POP | Not Used | 
Ve aes le are cee te aS acid 


GLBL The name of a global expression for 
this loop, or a Symbol Table pointer 
for an Adcon. The name will have 
7000, added to it to distinguish it 
from a pointer 


GPLNK Link in global register chain 


POP Popularity count for candidates 


Link Pointers 


During the PRF scan in Phase 3, chains 
of PRF items occur in pairs, one going for- 
ward (unprocessed) and one going backwards 
(has been relinked by Phase 3 in opposite 
direction). Phase 3 keeps a pair of point- 
ers to head each chain. Compute point 
entries are processed before the PRF entry 
to which they are attached. 


1 
{Forward |Backwara| 


ee |PRF 

| Chain - | Field|Hdead | dead | 
}------------------4~----}-------}--------4 
{Variable Defini- |VDP |FDP {BDP | 
| tion | | (S¥M)2] (SYM)2 | 
|Common Definition |CDP |CFDP | CBDP | 
|PRF Entries |ILNK |FLINK |BLINK | 
jLabel Definitions A UENK | LFDP eer | 


k ce ca cae ae eee ae ce cs a oe a emcee a le ae ee ee > 4 ~—--+~—L-_ -- - 


|*These fields eat for each eazsaie and | 
jJare in the symbol table entry for that | 
| variable. { 


Operand Pushdown 


Type 1 Entry - For Generating Triad Table 


0 78 15 16 31 
(oe SS ee or ed 
| OPTRD1 | OPTFCP | 
isaac a a er ae ee ee 4 
| OPCNT | OPOLSH | 
~------------------} ---—-------------— 
| OPRLEV 1 OPFLGS | Not Used | 
a a a a Beek at ee Jj 
OPTRD1 Reference to Triad Table or Symbol 


Table 


OPTFCP Forward Compute Point 

OPTCNT Length of expression in Polish 

OPOLSH ERF pointer to Polish expression 
(right end) 

OPRLEV Removal Level 

OPFLGS There are seven flags: 

Name Bit Setting Meaning 

OPFI 0 OPTRD1 is a Symbol 


Table Pointer = 
Primitive 


1 OPTRD1 is a Triad 
Table Pointer 
OPSIGN 9 1 Sign Flag 
OPLVF 10 1 Loop Variable 
Flag 
OPPLF 11 1 ERF Insert Flag 
ATF 13 1 At Operator Flag 
RSEF 14 1 Removable Subexpres- 
Sion Flag 
IVARF 15 1 Induction Variable 


Flag 


Type 2 Entry - For Generating Expression 
File Entries for Removed 


Expressions 
0 78 OPTSN 15 16 31 
| OPTSW | OPTSN !  OPTTRD | 
lice ek eee obec wee em ee hee eee J 


OPTSW Switch, used to determine the 


stage of processing an item 


Sign, used to store sign of the 


OPTSN 
operand 
OPTTRD A Triad or Symbol Table pointer 


(determined by OPTSW setting) 


Triad Table Entry 


8 16 18 24 26 31 
rr at et i ed 
| lt | ot i | | 
| Stet (Stet | 

as c S 
| TRLNK L215) op jay Sy op | 

A Ain 
| "1 t pe | | 
| f to i; | ft | 
pan fh dd 
| TROP1 | TROP 2 | 
}------------------- }-------------------—- 
| TRNAME { TRFCP | 
| ---------7---------}---------------------| 
| TRFLAG | TRRLEV | TRTIYPE | TR2NDF_ | 
Lon Rae hoa ne LL ee ed 
TRLNK Links to next entry in a chain 


from a hash table. 
TRFI1, TRFI2 File Indicator i, File Indica- 


tor 2 
SIGN1, Sign for OPi and OP2, 
SIGN2 respectively 
OP Operator--Same as code in EF 
Form 2 format 
TROP1 First operand (Triad or - Sym- 
bol) [for : and 2a, 
displacement] 
TROP2 Second operand (Triad or 
TRNAME Symbol) For : and @, variable 
(symbol). Also see TRIYPE, 
below. 
NAMEF = 0, link in chain of 
OFLAG = 1 Triads for last 
occurrence here. 
NAMEF = 0, link to new Polish 
QFLAG = 0 expression for 
last occurrence. 
NAMEF = 1 name of this 
expression. 
TRFCP Forward compute point (PRF) 
TRFLAG See TRTYPE, below. 
TRRLEV Removal level 
TRTYPE The ID field from the ERF 


entry of the operator is saved 
to determine the type of 
expression. 


(See Code and Type fields in 
the EFID in EF form 1 format) 


The search key for entering the triad 
table consists of the seven fields: OP, 
OP1, OP2, FI1, FI2, SIGN1, and SIGN2. 
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Satine Puen op ey adel AN ep Ee tg en ge ec PP Oe gar ae ty yh eee ee iy qe he pe eg regs ye ey al 








TRFLAG | Flag Name_ | Bit Position | 0 Meaning | 1 Meaning | 
SSE ag rae PENA cee nar en ON man + 
| ZEROF | X"80° | No Reference { Other i 
| | | since Compute | { 
i | { point | { 
|--------------}--—-------------+------------------}---~------------------------ 
| FIRSTF | x*40° | Other | First reference | 
| | | | since compute | 
| | | | point 
|---—-—-----—- {---------------- —}----------------— -----—--------—----------- —4 
| NAMEF | Xx*20° | (See NAME | | 
| | | above) | | 
}~—_-—-—_--_-_-__ a a a case moes Be Se ee a 
| OFLAG | X*10" | Other | This EF location to | 
| | | | be saved in | 
| { | | Triad | 
|---—---—-----}----—-- -—--------}-----------------} ----------------------------| 
{ REMOVF | x‘08* | Other | Has been removed | 
I { | | 
| LUF | x*Oa" | Other | EF ‘Last-use’ bit 
{ | j | has been set { 
| NCOMPF | x*02° | Other | Expression not removable | 
| { , | on its own | 
| | | | 
| COMAF | x*O1' | Other | Operator is a | 
| | ‘| | comma, double comma, | 
| | | | or question mark | 
|--------—-------—-------—-- —--4----------------—- $---------------------------- { 
TR2NDF | FRCFLG { x*80" | Other | Exp. must be | 
| | | | generated at BL3. | 
|-—----—-------- ~--—--—----—--+--—--------------- $-------------------------- —-{ 
| CPFLAG | x*"4O° | Other { Level Zero | 
| | | | removable expression. | 
|---—----—-----}------------- +} -----------------}--------------------------- 
| CRTF | X*20° | Other i | 
|--------—----}-------—------ ——-}-----—-----—-----}----------------—--—-----— 4 
| TRLVF | x*'10'° | Other | | 
--—------- ~-}-----------------} ------------------}------- +--+ -------------- 4 
| SPLTTRD | x*08* | Other | Special BXLE on | 
| | | | Recursive Triad | 
--—--------- ~--—-----—------} --—---------------}---------------------------- 
| COMAF | x*o1° | Other | | 
Ue ere BS ee th cee a a Se ee mad 
Polish Insertion Entries SLINKT Link to next entry in this chain 
ILNKT Link to ERF entry this insert 
precedes 
When an integer is an operand of a non- Word 1 
integer expression, Phase 3 inserts a float and ‘A normal ERF entry 
operator by means of two entries in the ex- WORD 2 


pression file, a primitive “FLOAT" con- 
nected by the operator “FUNCTION.” Prior 
to the time that the ERF is copied to the 
PF, insertions are indicated by entries in 
a linked file SERF. An entry to this file 
is as follows: 


0 15 16 31 
Goes oe ee ee ee a 

| SLNET | ILNKT | 
}---—--—------------4—------------------4 
| Word 1 | 
|-—--~-—---------—--------—--------------—+} 
| Word 2 | 


ee ce ee cee ere ee ee secre ee ee ee ene ae ete a ee cane nen ce ee a ee cree ee ee ee me aad 
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Compute and Removal Item Table 


0 15 16 31 
ee ee ee ee 
| FCP { CPLNK | 
}|——--------—---------}-------------------- 
| not used | TRIAD | 
es ett ea Se Se ead 
FCP Forward compute point 


(or removal point) 
Link to other entries 
Expression in Triad Table 


CPLINK 
TRIAD 


For insertions a hash table is entered, 
using the low order n-bits of FCP and link- 
ing to a chain. Entries in the chain are 
sorted on FCP (highest first). Later in- 
sertions precede earlier insertions. The 
table is scanned by a pointer which is syn- 
chronized with the PRF scan for removal of 
entries at the proper time. Removal 
entries are distinguished by having FCP at 
Begin Loop-1 PRF entries. 


Hash Table for Compute and Removal Table 
(CRT) and Triad Entries (HCRT) 


Those entries serve as dummy first 
entries for the linked chains of CRT 
entries and for the linked chains of triad 


entries. This table has 256 entries. 

3 15 16 31 

Ce ay 

{ LINK | CPLNK | 

foe I a Sa 3 

LINK For Triad items the fields OP1 and 
OP2 are added together, multiplied 
by 4, and the low-order 12 bits of 
that result are used as the index 
into this table. 

CPLINK For CRT items the low-order 12 bits 


in a PRF address form the index 
into this table. 


Formal Argument Adcon Table 


Some adcons assigned to storage class 4 
are actually not constants but are 
variables which must be computed by the 
preamble at any entrance of the subroutine. 
These are the adcons referring to storage 
classes 128 through 253 reserved for the 
parameters (dummy arguments), one per argu- 
ment. In order to specify these adcons to 
Phase 4 for preamble generations, a list is 
prepared by Phase 3. The entries to this 


list are 

0 78 15 16 31 

Fat ee Teed et ABD eee See ah DS tee ee ae me RT ie eT eR Se ee Te ee 

| Not Used | SsTCL | Sym. | 

L.——— —- + -4L_-_-_-_-_-_. + -L-_- + --.------------_J 

STCL Storage Class 

Sym Symbol Table pointer 
for the Adcon 

CEKKR -- Phase 3 Master Control Routine 


This is the entry point from the Exec. 
The intercom area is initialized. The 
PSECT is moved into the GETMAIN area, and 
the adcons that point to areas within the 
PSECT are relocated. The work area is 
initialized, necessary parameters stored, 
and proper registers filled. The proper 
subroutines are entered for processing each 


PRF item. These items are scanned in 
reverse order. When the end of the PRF is 
reached, CEKKU sets a flag, and CEKKR 
returns to the Exec. All errors found by. 
other routines of Phase 3 are handled by a 
special entry in CEKKR. See Chart CV. 
ENTRIES: 
CEKKRA This is the point where the Exec 
enters Phase 3 by a standard link- 
age (CALL macro instruction). 
CEKKRE This is the error exit for all rou- 
tines within Phase 3. The entry is 
made by restricted linkage (INVOKE 
macro instruction). The only pa- 
rameter is in register P2. This is 
a pointer to the error message pa- 
rameter list. 


EXITS: The routine exits to the Exec by a 
standard linkage (RETURN macro instruc- 
tion). The value in register L3 indicates 
whether it is a normal return (value = 3) 
or an abort return (value = 8). , 





The routine detects no error conditions 
of its own, but does handle the errors of 
all the other routines of Phase 3. 


OPERATION: Upon entry, the standard. proce- 
dure is used to save the registers and lo- 
cate the PSECT belonging to Phase 3. The 
intercom area is moved from the exec's 
PSECT to Phase 3's PSECT. Register Ni is 
loaded with the intercom location. After 
the PSECT has been moved into the GETMAIN 
area, the location of the first page of the 
GETMAIN area is loaded into register Ll. 
The location of the second page of the GET- 
MAIN area, which is the new intercom loca- 
tion, is loaded into register N1. Register 
N2 is loaded with the first available loca- 
tion in the working storage area. The 
location of the first entry in the PRF is 
calculated and put into register P5. The 
location of the first available word in the 
PF is calculated and put into P6. The 
limit of the PF is calculated and saved in 
PFLIM. 


The CEKKA subroutine is invoked, for 
each PRF item, until no qualifying entry in 
the compute and removal table is found. 

For each CRT entry returned by CEKKA, CEKKB 
is entered if the current PRF entry is a 
Begin Loop 1, 2, or 3 item. If it is not, 
the CRT entry is deleted from the table. 


Each begin loop 3 item goes through the 
CEKKA circuit twice, first pointing to 
itself then pointing to the begin loop 2 
PRF entry. On the first pass, a qualifying 
CRT entry returned from CEKKA is deleted if 
the forward compute point is less than the 
current PRF location, or if the FRCFLG is 
not on in the triad entry and the “label” 
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flag is zero in the PLP entry. Otherwise, 
CEKKB is entered to generate the expres- 
sion. On the second pass, the CRT entry is 
deleted if the operator of the traid is not 
an ! (indicating a recursive expression). 
For the recursive expression triads, a flag 
is set indicating that this loop need not 
be materialized. Then, the popularity of 
the expression is increased by CEKKO. When 
CEKKA returns a zero in register P2, the 
flag for the first begin loop 3 pass 
(HOLDB3) is checked. If it is on, the 
second pass is set up and the flag turned 
off. During the second BL3 pass, all 
recursives are examined to determine if 
there is a ‘BXLE on recursive" candidate. 
The following checks are made: 


1. The recursive must be a special split 
subscript. That is, the least remov- 
able part of the subscript must be the 
induction variable. 


2. The step on the recursive must be a 
positive constant. Note that the loop 
step is not included in the subscript 
expression at this time. CEKKB 
inserts it at BL2 processing. 


3. The loop step must be a constant. 


4. The loop must not be marked for 
materialization. 


Of all the candidates passing the require- 
ments, the one with the highest popularity 
count is retained. 


At the end of the second pass, if a BXLE 
recursive was selected, the CRT entries are 
relinked so that the selected recursive is 
the one last seen by Phase 4, and the one 
for which the test expression will be 
created by CEKLI. 


CEKKO is then called to increase the 
popularity of the recursive to the maximun, 
to ensure its global assignment by CEKKV. 
When both passes at begin loop 3 have been 
completed, the materialized byte is checked 
to see if a recursive expression was found. 
If none was found and the global flag is 
off, or if the ISD option is on in inter- 
com, the materialize flag is set in the PLP 
item. 


For each completion of the CEKKA cir- 
cuit, the ID of the PRF entry is checked 
for a “label" or an “alternate entry” item. 
For labels, the “referenced™ flag in the 
symbol table is tested. If it is on, CEKKA 
is entered and all the CRT entries deleted. 
For alternate entries, all CRT entries are 
deleted by using CEKKA and pointing to 
X'7FFF" or to the absolute beginning of the 
PRF. No triads can be carried past an 
alternate entry. Upon completion, or if 
the PRF entry was not one of those two, the 


110 


OPERATION: 


CEKKU routine is invoked. Upon return fron 
CEKKU, the end flag (ENDIT) is checked. If 
it is off, the routine returns to enter 
CEKKA again for the next PRF item. If the 
end flag is on, Phase 3 ends. The regis- 
ters are restored, and return is made to 
the executive by standard linkage (RETURN 
macro instruction). 


At the entry point for errors (CEKKRE), 
the executive subroutine CEKTE is called to 
output the error message. Upon return, 
register L3 is set to 8, to indicate an 
abort condition. The routine exits through 
the same procedure as for a normal exit. 


CEKKU -- PRF Processing Routine 


This routine manipulates the PRF entry 
into its proper PF format, performs any 
necessary linking, and writes the entry 
into the PF. See Chart CW. 


ENTRIES: The entry point is CEKKUA.. 
Register P5 contains the location of the 
current PRF entry, register P6 contains the 
location of the next available word in the 
PF, register N1 covers the Intercom area, 
and register L1 covers the work area. 


EXITS: Register P5 contains the location 
of the next PRF entry, register P6 contains 
the location of the next PF word, register 
Ni covers the intercom area, register N2 
covers the unused working storage, and 
register L1 covers the work area. 


Two error conditions are detected: 
1. An illegal ID in the PRF. 
2. The PF table overflowed. 


For all cases register P2 is set with 
the location of an error message parameter 
list in the PSECT, and the standard phase 
error processor (CEKKRE) is invoked. 


The registers are saved by the 
STORE macro. The ID code of the PRF is 
converted to an index by multiplying it by 
four. An internal branch table is used to 
direct the routine to the proper processing 
section. If the ID is zero, or greater 
than the maximum, the error exit is taken. 


Each item is processed by rearranging 
(if necessary) the fields of the PRF to 
conform to the PF format. In many cases 
entire fields are deleted; in other cases 
fields are modified (refer to the format 
diagrams of the PF items in Appendix A). 


1. Begin Program (ID = X‘'1'). The end 
flag (ENDIT) is set. If the program 


being compiled is a main program, a 
dummy ENTRY statement is inserted into 
the PF. Return is to CEKKR. 


Enter (ID = X'2') and Alternate Entry 
(ID = X'3'). -For a subprogram entry 
(ID = 2) the end flag (ENDIT) is set 
to mark the end of the PRF. Each 
argument symbol table index (ASTX) is 
used to obtain the corresponding 
storage class (STCL) from the symbol 
table. These are stored in the PRF. 
The label relink (a Phase 3 internal 
subroutine described below) subroutine 
is entered. Upon return, the length 
of the PF entry is computed and the 
Variable Move routine (a Phase 3 in- 
ternal subroutine, described below) is 
entered. 


Label Definition (ID = X°"4'). The 
label relink subroutine is entered. 
Upon return, the label flag bit in the 
PLP entry of the current loop level is 
turned on if the “Reference” flag is 
on in the symbol table. The fields 
are packed and the Two-Word Move rou- 
tine (a Phase 3 internal subroutine, 
described below) is entered. 


Equation (ID = X"5'). EXSN (expres- 
sion scan subroutine, a Phase 3 inter- 
nal subroutine, described below) is 
entered for OPD1. Upon return, the 
symbol table location stored by CEKKE 
is used to enter the Variable Relink 
subroutine. EXSN is then entered for 
OPD2. Upon return, the Common Relink 
subroutine is entered. Upon return, 
the fields are rearranged and the 
Four-Word Move routine entered. 
(Variable Relink, Common Relink, and 
Four-Word Move are ali Phase 3 inter- 
nal subroutines, described below.) 


GO TO (ID = X‘'6'). The symbol table 
index of the label (LLNO) is used to 
enter the Adcon Assignment subroutine. 
Upon return, the fields are rearranged 
and the Three-Word Move routine is 
entered. (Adcon Assignment and Three— 
Word Move are both Phase 3 internal 
subroutines and are described below.) 


Assigned GO TO (ID = X'7'). The num- 
ber of label elements (NOEL) is used 


to find the line-number word (LINO), 
which is moved to the third word of 
the entry. The OPD field is used to 
enter EXSN. The AVAR field is moved 
up two bytes, and the Three-Word Move 
routine is entered. 


Computed GO TO (ID = X"8"). The OPD 
field is used to enter EXSN. The 


fields are rearranged, with the LLNOs 
being packed into two bytes. The new 
length is computed, and the Variable 
Move routine entered. 


ASSIGN (ID = X'9'). The OPD is used 
aS a parameter for entry to the EXSN 


10. 


11. 


12. 


13. 


14. 


15. 


16. 


routine. On return, the Three-Word 
Move routine is entered. 


Arithmetic IF (ID = X*A‘'). EXSN is 
entered with the test value (TVAL). 
Upon return the Common Relink subrou- 
tine is entered. Upon return, the 
Adcon Assignment subroutine is entered 
for the three branch points. The 
fields are then rearranged and the 
length set at 20 bytes. The variable 
move is then entered. 


Logical IF (ID = X'B‘'). EXSN is 
entered with the test value. Upon 


return, the Common Relink subroutine 
is entered. The last two words are 
moved up one word. The Adcon Assign- 
ment subroutine is entered. Then the 
Four-Word Move routine is entered. 


CALL (ID = X*C'}. The fields are 
rearranged, with the LLNOs being 
packed into two bytes. The new length 
is computed, and the Variable Move 
routine entered. 


Argument Definition Point (ID = X'D"). 
The VAR field is converted to a:symbol 


table location, and the Variable 
Relink subroutine is entered. Upon 
return, the Two-Word Move routine is 
entered. : 


RETURN (ID = X'E'). The RIND field is 
checked. If it is nonzero, the: RVAR 
field is used as a parameter to enter 
the CEKKE routine. Upon return, or if 
RIND was zero, the RVAR field is moved 
forward two bytes, and the Three-Word 
Move routine entered. 


Begin Loop 1 (ID = X*F'). CEKKV is 
entered. Upon return, the length is 
set at 28 bytes and the Variable Move 
routine entered. 


Begin Loop 2 (ID = X*10"). CEKKW is 
entered. Upon return, the Four-Word 


Move routine is entered. The Four- 
Word Move routine adds the IVAR and 
EXITLB pointers to make the BL2 a 
five-word entry. 


Begin Loop 3 (ID = X"11‘). The RMVAL 
word is obtained from the PSECT and 


put into the PRF entry. A hexadecimal 
8000 is put into RMVAL. The subrou- 
tine to relink common is then entered. 
On return, the CDP and GLAB fields are 
rearranged to the PF format. If the 
level is not zero, the Adcon Assign- 
ment subroutine is entered. The flags 
are then checked. If the ‘global'‘ 
flag is on, indicating an inner loop 
with no external calls, and the loop 
is safe, the symbol table pointer for 
the current floating point candidate 
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17. 


18. 


19. 


20. 


21. 


22. 


23. 


24. 


25. 
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is put in the PF. The candidate 26. 
pointer is then replaced with X'‘'8000'. 
The Three-Word Move routine is 


entered. 27. 


End Loop (ID X*12"). CEKKC is 
entered. The symbol table pointer for 


the current floating point candidate 
is replaced with X‘'8000°. Upon 
retur, the One-Word Move routine is 
entered. (One-WSrd Move is a Phase 3 
internal subroutine and is described 
below.) 


28. 


CONTINUE (ID = X*13'). No processing 
is necessary, So the Two-Word Move 
routine is entered directly. 


READ (ID = X'14") and W:ITE (ID = 
X'17"). The flag field is checked to 
see if the LABF field is an EF point- 
er. If it is, the EXSN routine is 
entered. Upon return or. if it was not 
an EF pointer, the UNIT field is used 
to enter EXSN. Upon return, the ID is 
checked. If it is a WRITE entry, the 
Three-Word Move routine is entered. 
For a READ, the ERR and EOF fields are 
packed into one word and the Four-Word 
Move routine entered. 





29. 


READ (ID = X'16'), PRINT (ID = X*°19'), 
and PUNCH (ID = X‘1A'). The flag 
field is checked. If it indicates 
that the LABF is an EF pointer, the 
EXSN routine is entered. Upon return 
or if LABF is a symbol table pointer, 
the Three-Word Move routine is 
entered. 


30. 


READ with NAMELIST (ID = X"°15") and 
WRITE with NAMELIST (ID = X"18"). The 
UNIT field is used as a parameter to 
enter the EXSN routine. If the entry 
is a WRITE with NAMELIST, the Three- 
Word Move routine is entered. For the 
READ with NAMELIST entry the fields 
are rearranged, with ERR and EOF being 
packed into two bytes. Then the Four- 
Word Move routine is entered. 

, 31. 
Output List Element (ID = X‘1B"). 
EXSN is entered with OPD. Upon 
return, the Two-Word Move routine is 
entered. 


End List (ID = X‘1C'). The One-Word 
Move routine is entered directly. 


File Control (ID = X'1D"). The UNIT 
field is used as the parameter on an 
entry to EXSN. 


32. 


STOP (ID = X'1E') and PAUSE ‘ID = 
X‘1F°). $The Three-Word Move routine 
is entered directly. 


End Program (ID = X'20"'). 


The One- 
Word Move routine is entered directly. 


Input List Element (ID = X‘'21'). EXSN 
is entered. Upon return, the symbol 


table location generated by CEKKE is 
used to enter the Variable Relink sub- 
routine. Upon return, the Common 
Relink subroutine is entered. When 
finished, the Three-Word Move routine 
is entered. 


Adcon Assignment Subroutine. The sym- 
bol table pointer, assumed to be in 


register P2, is converted to an 
address. The storage class of the 
entry is checked. If it is equal to 
255, the routine returns to the call- 
er. If not equal to 255, it is set to 
255. Register P2 is set to zero, and 
CEKLB is entered to file the constant. 
The pointer to the symbol table entry 
for the adcon is moved from the PSECT 
(TEPNTR) to the symbol table entry 
being processed. The parameters are 
set, and CEKKO is entered to tally the 
popularity of the adcon for global 
register assignment. Return is to the 
calling routine. 


Label Relink Subroutine. The pointer 
of the current PRF entry (FPT) is com- 
pared to the forward label Link 
(LFDP). If they are not equal, the 
routine returns. If they are equal, 
the label field of the PRF (LINK) is 
converted to the PF chain, and the 
current LLNK saved as LFDP. 


Common Relink Subroutine. The pointer 
of the PRF entry is compared to the 
forward common link (CFDP). If they 
are equal, the PRF field is chained 
and the PRF pointer is saved. The 
routine then returns to the caller. 

If they are not equal, the PRF pointer 
1s compared to the forward formal 
argument link (AFDP). If these are 
not equal, the routine returns. If 
these are equal, the PRF field is 
linked, and the PRF link is saved. 


Variable Relink Subroutine. The PRF 
pointer is compared to the forward 
definition field in the indicated sym- 
bol table entry. If they are not 
equal, the routine exits. If they are 
equal, the forward and backward 
definition fields of the symbol table 
are relinked, and the forward link 
saved. 


One-Word, Two-Word, Three-Word, and 
Four-Word Move Routines. The PF loca- 


tion is moved to register P3 and 
increased by the indicated number of 
bytes (4, 8, 12, or 16). Then the 
Special Move subroutine is entered. 
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Upon return, the proper number of 
words is transferred from the PRF 
table to the PF table. The PF loca- 
tion is then updated by the proper 
number of bytes. The Exit Routine is 
then entered. 


33. Variable Move Routine. The indicated 
length (i.e., number of bytes to be 
moved) is put on the next full-word 
boundary. The PF location is put into 
register P3 and the length added to 
it. The Special Move subroutine is 
then entered. Upon return PRF entry 
is moved in blocks of 256 bytes or 
fewer. The PF location is then 
increased by the length, and the Exit 
Routine entered. 


34. Special Move Subroutine. The extent 
of the new PF entry (register P3) is 


compared to the PL limit (LIMSAV) for 
PF table overflow. If the table limit 
is exceeded, the error exit is taken. 
If not, the PF link field (ILINK) is 
updated, and return is made to the 
calling routine. 


35. EXSN - Expression Scan Subroutine. 
The ERF location is obtained from the 


indicated location, and CEKKE is 
entered. Upon return, the EF location 
is stored in the indicated field. The 
PRF location is restored, and return 
is to the entering routine. 


36. Exit Routine. The forward and back- 

ward links for the PRF and PF are 
updated. The current PRF location is 
calculated. The routine then exits to 
CEKKR by a restricted linkage (RESUME 
macro instruction). 


CEKKC -~ End Loop PRF Entry Routine 


This routine processes the end loop 
entries in the PRF table. It sets up the 
loop tables for the loop, terminates com- 
monality of expressions as required, marks 
loop variables appropriately, and deter- 
mines their compute points if necessary. 
See Chart CX. 


ENTRIES: The entry point is CEKKCA. 
Register P5 contains the location of the 
current PRF entry, register Nl covers the 
intercom area, register N2 contains the 
location of the first available word in the 
working storage area, and register Ll 
covers the work area. 


EXITS: Registers N3 through L2 are 
restored. Registers P5, P6, and N1 return 
unchanged. Register N2 reflects any use of 


working storage by pointing to the new 
first-available word. 


OPERATION: 


This routine uses the working storage 
area of the PSECT. An error condition 
exists if this area is overflowed. The 
Phase 3 error exit (CEKKRE) is taken. 


OPERATION: The level (LEV - see “Phase 3 
Loop Tables") is increased by 1, and a new 
PLP entry is generated and linked into the 
CNT Table. If the current loop is safe, 
all entries in the CRI (found by CEKKA) 
below the BL3 of the loop are deleted. If 
the loop is unsafe, level zero is checked. 
If level zero is safe, all CRT entries to 
BL3 of level zero are deleted. 


The “active induction variable" flag is 
turned on in the symbol table entry of the 
loop induction variable. The current level 
is stored as ULEV, and the forward compute 
point is set at BL2 of the loop. For the 


three loop parameters, CEKKG is entered to 


set the ULEV and FCP. Upon return, these 
entries are checked to ensure that the ULEV 
is at least the current loop and FCP is at 
BLi of the loop. Also, if any of the loop 
parameters is an induction variable for a 
previous loop, that loop is set for 
materialization. 


CEKKV -- Begin Loop 1 PRF Processor 


This routine processes the begin loop:1 
entries in the PRF. The global register 
candidates are computed and moved into the 
PRF. Since this is the end of the process- 
ing for a loop, the level (LEV - see “Phase 


3 Loop Tables") is reduced by 1. See Chart 
CY. 7 
ENTRIES: The entry point is CEKKVA. 


Register P5 contains the location of the 
current PRF entry, register Ni covers the 
intercom area, and register L1 covers the 
work area. 


EXITS: Registers P6, Ni, N2, and Li are 
the same as when entered. Register P5 
points to the BL1 work area in the PSECT 
(BL1WORK). 


This routine uses the working storage 
area of the PSECT. If this area is over- 
flowed, an error condition exists. The 
Phase 3 error exit (CEKKRE) is taken. 


Upon entry, the 2-word PRF BL1 
item is moved from the PRF to the BL1 work 
area in the PSECT, and register P5 is 
loaded with that location. (This is done 
because the BL1 entry to be created for the 
PF will be 28 bytes long. If the PRF is 
near the end of the allotted area, working 
in the PRF could cause errors by accessing 
past the end on the legitimate PRF area.) 
The line number is moved from the second 
word to the seventh. The loop level (LEV) 
is used to find the PLP location through 
the CNT table. The PLP flags are moved to 
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the PRF entry. The global register candi- 
date counter (GPN) is saved and the field 
cleared in the PLP. If the original GPN is 
zero, there are no global register assign- 
ments, and the routine skips to the end. 


For the sort, a temporary table (the 
first entry of which is set to zero) is set 
up in working storage with the following 
format for each entry: 


ee Ae EY DD NE IE TE OE EE ODE SO NE SS DS A SS ST SS SE ED cD 


THE GPLINK chain is followed from the PLP. 
The GIRL entries are then picked up one at 
a time to be stored in the table at the 
point where the popularity count of the 
next item in the table is less than the 
popularity count of the current GIRL entry. 
The table is pushed down at that point, and 
the new entry is inserted. The entry for 
the first or lowest negative popularity is 
stored immediately preceding the end of the 
table. When the end-of-chain is encoun- 
tered, the sort is completed. The GPLINK 
chain is now relinked so that the entries 
are encountered in order of decreasing 
popularity. 


Now each candidate is checked to see if 
global assignment can be accomplished. In 
order to be globally assigned, each inner 
loop must have the same candidate already 
globally assigned, or have fewer than the 
maximum number of registers assigned (8). 
Starting with the most popular candidate, 
each inner loop is checked to see if there 
can be global assignment. If there cannot 
be, the candidate is deleted from the 
GPLINK chain. If there can, the GPN of the 
current loop is increased by 1. Also, each 
loop in which it is not already globally 
assigned has its GPN increased by 1. 


When either the candidate list is 
exhausted or the GPN of the current loop 
reaches the maximum, the search is com- 
pleted. An X'8000° is stored in the GPLINK 
of the last entry as the end-of-chain. The 
GLBL fields in the BL1 entry are preset to 
X*8000". Then the GPLINK chain is followed 
to the end storing the GLBL field into the 
BL1 entry. 


For each of the parallel inner loops, 
the GPLINK chain is followed. Each entry 
is compared to each GPLINK entry in the 
current loop. If an entry is found in an 
inner loop which is not in the current 
chain, it is linked into the current chain, 
and the GPN is increased by 1. This allows 
a GLBL to go from level “n" to level “n-2" 
with no occurrences in level “n-1". 


Since this is the end of the loop pro- 
cessing, the CNT table entry is set to 
X*'8000* for both the TLINK and PLINK 
fields. The pointer to the removed expres- 
Sion generated by CEKKB is moved from RMVAL 
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in the PSECT to the BL1 entry and X'8000' 
is stored in RMVAL. The loop level (LEV) 
is reduced by 1. The exit is then taken. 


CEKKW -- Begin Loop 2 PRF Processor 


This routine processes the begin loop 2 
entries in the PRF. The EF entries for the 
loop parameters generated for materialized 
loops. If a test value exists, the test 
expression is generated by entering CEKLI. 
See Chart CZ. 


ENTRIES: The entry point is CEKKWA. 
Register P5 contains the location of the 
current PRF entry, register N1 covers the 
intercom area, and register Li covers the 
work area. 


EXITS: Register P5, P6, Ni, and N2 are the 
same as when entered. Registers N3 through 
L2 are saved and restored. 


Two errors are detected: 
1. The PF table overflowed. 


2. An illegal type code found in the sym- 
bol table. 


For all cases the Phase 3 error exit 
(CEKKRE) is taken. 


OPERATION: The registers are saved by the 
STORE macro instruction. The link to the 
Polish chain (RMVAL) is moved from the 
PSECT to the PRF, and the value X‘*8000° is 
stored in RMVAL. The symbol table pointer 
of the induction variable (IVAR) is con- 
verted to a symbol table location. The 
pointer to the current PRF entry is com- 
pared to the forward definition point (FDP) 
of the symbol table. If they are equal, 
the FDP and BDP fields are relinked. 


The PLP flags are checked to determine 
which path the processing then follows: 


1. If the materialize flag is on, the 
symbol table pointer for IVAR is con- 
verted to a location. The PRF pointer 
is stored in the symbol table entry as 
the forward compute point. The unde- 
fined level (UNLEV) field is set to 
55, and DUNL (a Phase 3 internal sub- 
routine) is entered. 


The expression file and DUNL subrou- 
tines are entered for the initial 
value (BEG), the final value (END), 
and the increment value (INC). The 
link to each expression is stored in 
the proper place in the PRF. 


2. If the GLOBAL flag is on, but the BXLE 
on recursive flag is off, the EXITLB 
field is checked. If EXITLB is not 
equal to X‘'8000', the materialize flag 


is set; in either case, processing 
continues as in 1. 


3. If the BXLE on recursive flag is on, 
the constant step on the recursive is 
deleted as a global assignment candi- 
date. This is accomplished by calling 
CEKKO with a zero weight, then return- 
ing to CEKKO with a weight equal to 
(-TOTPOP). If EXITLB is not X*8000', 
a PF entry is generated for the induc- 
tion variable and the initial value 
via FEFP. The adcon for the exit 
label then has its popularity reduced 
by 5. 


CEKLI is then called to generate the 
test expression for the recursive. 


4. If none of the above conditions pre- 
vail, CEKLI is called to generate a 
test expression. 


The routine then exits. 


File EF and Point (FEFP) Subroutine 


This subroutine (internal to CEKKW) is 
used to file an adcon in the symbol table 
for the loop variables. The routine is 
entered with a symbol table pointer in 
register P1, which is converted to a loca- 
tion in register P&. The location (SLOC) 
is divided by 4096 (to put it on a page 
boundary). The remainder is stored as the 
displacement of the EF entry. The result 
plus the storage class (STCL) are stored 
for the executive subroutine. 


Then the subroutine CEKTFI is entered to 
file the adcon. The cell TEPNTR contains 
the pointer to the symbol table. This is 
stored in the EF entry. The type and ID 
are also stored in the EF entry. The 
pointer to the EF is put into register P2. 
Register P6 (the PF location) is updated by 
two words. Return is then made to the 
calling routine. 


Delete the Undefined Level (DUNL) 
Subroutine 


This internal subroutine resets the 
undefined level (ULEV). It is entered with 
the symbol table location in register P4, 
The variable class is found, and its ULEV 
checked against the loop level. If ULEV is 
equal to or greater than the loop level, 
ULEV, is set to 55. If ULEV is smaller, 
the forward compute point is checked 
against FLINK. If FCP is less than or 
equal to FLINK, the ULEV is set to 55, and 
the routine exits. If FCP is greater than 
FLINK, the routine exits. 


CEKKE -- Expression Scan Routine 


This is the main control routine for a 
series of subroutines which scan an entry 
in the expression file (ERF), put it into 
canonical form, generate or locate triad 
table entries for all expressions and sub- 
expressions, update symbol table entries as 
necessary, determine commonality and remov- 
ability, rearrange and expand subscript 
expressions, generate adcon entries as 
needed, and rewrite the ERF as part of the 
program file (PF). See Chart DA. 


ENTRIES: The entry point is CEKKEA. 
Register P2 points to the last ERF entry of 
the expression to be processed. Register 
P5 contains the location of the current PRF 


entry. Register P6 contains the location 
in the PF. 
EXITS: Register P2 points to the last ERF 


entry made in the PF. Register N1 is 
returned unchanged. Register P6 points to 
the new location in the PF. Register N2 
points to the new first available word of 
working storage. 


OPERATION: Upon entry the ERF pointer, 
passed in Register P2, is converted into an 
ERF location. If the pointer is an 
X*8000', the exit is taken. It is assumed 
that the location is the "right-end" or 
Major operator of an expression, or a: prim- 
itive (a constant or variable). A counter 
is set to 1, and the expression is scanned 
backward (from high core to low) to find 
the “left-end" (or beginning). The ID of 
each entry in the ERF is examined. If it 
is an operator, the counter is increased by 
1. If it is a primitive (anything other 
than an operator), the counter is reduced 
by 1, the ERF location is reduced by eight 
bytes, and the next entry is checked. When 
the counter reaches zero, the beginning of 
the expression has been found, and the ERF 
location is saved in LOWERF. When a sub- 
script expression is being scanned, special 
conditions exist. Since CEKKM must insert 
two entries into the ERF, two extra plus 
operators have been inserted by Phase 1 
immediately preceding the colon operator. 
Therefore, when a colon is encountered dur- 
ing a scan, the ERF location is reduced by 
16 bytes in order to skip the pluses, which 
are not part of the expression. 


Once the left-end has been determined, 
the control words and flags are set to ini- 
tial conditions. Register P5 is loaded 
with the -1 entry of the OPT1, so that 
CEKKF will start at the first entry point. 
Register P2 contains the ERF location of 
the left-most or first entry of the 
expression. 


The general processing scheme is to 
check the ID of the ERF item pointed to by 
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register P2. If the ERF ID indicates a 
primitive, CEKKF is invoked. CEKKF forms 
an entry in the OPT1 Table for the primi- 
tive. Upon return the current ERF location 
is compared to the end or right-end loca- 
tion. If they are not the same, the ERF 
location (P2) is increased by eight bytes 
to point to the next item of the expres- 
sion, and its ID is checked. 


If the ERF ID indicates an operator 
entry, the subscript switch (SWCHSB) is 
checked. If it is set to 1, the subscript 
expression is on the first pass. The 
operator is checked for a plus. If itisa 
plus, the first pass is completed and CEKKM 
is invoked. Upon return from CEKKM, the 
conditions have been reset for another com- 
plete pass over the subscript expression, 
so the process of checking each ERF ID is 
restarted. The switch SWCHSB is set to 
zero, so that the second pass appears as 
normal processing. 


If SWCHSB is zero or, if the operator is 
not a plus, CEKKH is entered to form and 
file a triad generated from the operator 
and the last two OPT1 entries. Upon return 
from CEKKH, CEKKL is entered under one of 
two conditions: 


1. The triad is removable from the cur- 
rent loop, and the triad flag indi- 
cates that it has already been 
removed, except for expressions 
removed to BL3 (i.e., FRCFLAG is on). 


2. SWCHSB is set to 1, indicating the 
first pass over the subscript 
expression. 


CEKKL forms a new OPT1 entry for the 
previously created triad, so that it will 
be an operand of the next operator. Upon 
return from CEKKL, the insert flag (INSW) 
is checked. If this flag is nonzero, there 
was a “Float* function inserted by CEKKN. 
In this case, CEKKL has restored condi- 
tions, so CEKKH is now entered to form 
another triad, and processing is continued 
from there. If INSW is zero, the routine 
loops back to check for the end of the 
expression. 


After the return from CEKKH, if neither 
of the two above conditions exists, CEKKI, 
is entered, with register P4 pointing to 
the first (or lower) of the last two OPT1 
entries. CEKKI operates on the operands of 
each triad. For primitive operands adcons 
are counted for global register assignment 
where appropriate. For triad operands the 
removability and commonality are determined 
and the necessary action taken (naming, 
creating residues, etc.). Upon return from 
CEKKI, the flag SWCHFL is checked. If it 
is nonzero, a "Float" insert was made by 
CEKKN, in which case CEKKL is entered. 
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Upon return from CEKKL, CEKKH is reentered 
for a new triad as before. 


If SWCHFL is zero, register P4 is set to 
point to the last OPI1 entry (the second of 
the two operands), and CEKKI, is reentered. 
Upon return from CEKKI, CEKKL is entered. 
Upon return from CEKKL, the INSW is tested 
with the same branches as described 
previously. 


When the right-end of the expression is 
reached, register P3 is set to point to a 
dummy triad entry (which represents the 
“equais”™ operator). CEKKI is then entered 
to process the last entry in the OPT1 
table. Upon return from CEKKI, CEKLF is 
entered to copy the ERF string into the PF, 
inserting any float functions as necessary. 
Upon return from CEKLF, the JOINTE chain is 
followed. This chain points to triad 
entries which need the location in the PF 
to be saved in the name field of the triad. 
The chain starts with JOINTE and is con- 
tinued in the name field of each triad in 
the chain. When an end-of-chain (X‘'8000') 
is found, the exit is taken. 


CEKLF -- Copy and Edit an Expression 


The function of CEKLF is to copy an ex- 
pression from ERF into the PF. During this 
process null entries will be deleted, spe- 
cial expression file entries will be 
inserted, and any expressions which have 
been named as common will be changed to so 
indicate, if necessary. See Chart DB. 


ENTRIES: This routine is entered at CEKLFA 
with the following input parameters: 


P2 = Location of the right-end of the 
expression in the ERF 

P3 = Location of the left-end of the 
expression in the ERF 

P6 = Location of next available entry 
in the PF 


EXITS: Register P4& contains the location 
of the last entry made in rhe EF portion of 
the PF. Register P6 contains the updated 
next available work in the PF. If the PF 
is filied during the copying, the Phase 3 
error exit is taken. 


OPERATION: Initially, the SETFLAG is 
checked. If it is turned on, indicating 
that the left end of an assignment state- 
ment is being copied, the ‘global load’ 
flag is checked in the PLP. If it is on, 
the GFLSW is set to 3, indicating that this 
loop may have a removed floating-point can- 
didate. The SERF cell contains the loca- 
tion of the first insert entry. If SERF is 
zero, there are no insert entries. In this 
case, the insert location is set to 
X'FFFFFFFF* to prevent any insertions. If 
there are insert entries, the location of 


the first entry is loaded from SER#. The 
insert location is loaded for comparison 
with the ERF location. if the ERF location 
is equal to the insert location, the SERF 
entry is moved into the PF. The ID field 
is then checked for an “operator.” If it 
is an operator, tne triad location is 
loaded and the name flag checked. If it is 
on, the name is moved from the triad to the 
EF entry and the ID is changed to *CSX." 

In any case, the PF location is updated to 
the next location. ,The location of the 
next SERF entry is loaded, and the routine 
returns to load and check its insert 
locations. 


When the insert location is not equal to 
the ERF location, the ID of the ERF entry 
is checked for a null ID. If it is null, 
the entry is not put into the PF, but the 
routine skips to update the ERF location. 


it is checked for 
the 


If the ID is not null, 
an operator. If it is an operator, 
following checks are made. 


1. If it is either a complex operator or 
an intrinsic-function-argument opera- 
tor, the GFLSW is turned off. 


2. If it is a colon operator, and the 
COLONF flag is on, it is checked to 
see if this is a removed floating load 
candidate. The COLONF flag is set 
when an array operand is processed and 
meets the ‘removed floating point 
quantity’ requirements. The SETFLAG 
is checked to determine whether the 
expression is the left or right end of 
the assignment statement. 


If this is the left end of the assign- 
ment statement, the removal level of 
the subscript operand is checked. If 
it is removable from the current loop, 
the GFLSW is set to 2, indicating that 
a subscripted variable appeared to the 
left of the equal sign. The 
subscript-triad pointer is saved for 
comparison when the right end of the 
equal sign is processed. 


If the SETFLAG is off, then the right 
end of the equal sign is being pro- 
cessed. The GFLSW is checked. If it 
equals 1, it is set to zero. This 
means the statemnet A(3) = ACI) will 
not be considered for global assign- 
ment in floating-point register 6. 


The subscript triad is then compared 
to the one saved from the left end. 

If they are not equal, the GFLSW is 
set to zero. This protects the state 
ment A(J) = A(I) from being consi- 
dered. The adcon-displacements of the 
two array items are then checked. If 
they are equal, the colon operator is 


flagged for Phase 4. If they are not 
equal, the colon operator is not 
flagged and the GFLSW is left 
unchanged. This allows the statement 
ACI) = A(I+3) to be recognized as an 
allowed condition in that the elements 
being referenced will never be the 
same. 


In any case, the triad name is moved 
to the ERF entry, and the ERF is 
copied to the PF. 


If the ERF entry is an operand, it is 
checked for a variable. If it is a vari- 
able and the SETFLAG is on, it is examined 
for being a removed floating-point-quantity 
candidate. The requirements are that it 
must be REAL*4 or REAL*8, and must not have 
the INTERFERING flag set in its symbol 
table entry. 


The ERF flags are then checked to see if 
the quantity is a subscripted variable. If 
not, GFLSW is set to 1, indicating a simple 
variable to the left of the equal sign. If 
it is a subscripted varialbe, COLONF is set 
to one, indicating that the next colon 
operator processed corresponds to this 
array operand. 


If the SETFLAG is off, GFLSW is checked. 
If it is set to 2, and the symbol table . 
pointer matches the saved one, the ERF flag 
is checked to see if it is a subscripted . 
variable. If not, GFLSW is set to zero. .. 
This disallows A(I) = A(3). 


If GFLSW is set to 1, the symbol table 
pointer matches the saved one, and the ERF: 
flag indicates a subscripted variable, 
GFLSW is set to zero. If it is not sub- 
scripted, and the adcon displacement equals 
the saved one, the ERF operand item is 
flagged for Phase 4. 


In all cases, the ERF is copied to the 
PF. The next available word in the PF 
(register P6) is updated. The ERF location 
is increased by eight bytes and compared to 
the right-end location. If they are not 
equal, the routine loops back to check for 
an insertion. If they are equal, the ex- 
pression has been copied. The new PF loca- 
tion is converted to a pointer and stored 
in TEPFT. If the SETFLAG is off and GFLSW 
is set to 1 or 2, CEKKO is called to reduce 
the popularity of the subscript or adcon by 
the number of times the item was flagged. 
CEKKO is called a second time to increase 
the popularity of the item on the next 
outer loop by a weight of 10. The pointer 
to the EF for the left end of the expres- 
sion is then stored in GBLREAL for CEKKU. 


If the SETFLAG is on, the pointer to the 
expression in the PF is saved, and exit is 
taken. 
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CEKKF -- Pushdown Primitive Operand Routine 


The functions of the CEKKF are to update 
the symbol table entry of an operand (if a 
variable), to change the ERF entry to 
reference an address constant and displace- 
ment, to create a dummy expression (4a 
operator) if required, and to form an entry 
in the operand push-down list (OPT) from 
the information created in these processes. 
See Chart Dc. 


ENTRIES: This routine is entered at CEKKFA 
by restricted linkage (INVOKE macro 
instruction). Register P2 contains the 
location of the current entry in the ERF. 
Register P5 contains the location of the 
current OPT1 entry. 


EXITS: This routine returns to CEKKE by 
the restricted linkage (RESUME macro 
instruction). Registers P2, P5, and Pé are 
returned unchanged. 





OPERATION: The OPT1 location is stepped to 
the next entry and the area is cleared. 
The current ERF pointer (register P2) is 
stored in the Polish (OPOLSH) field. The 
forward compute point (OPTFCP) is set to 
X*7FFF*, which forces it to the beginning 
of the object program. If the ID of the 
ERF item indicates a loop variable, the 
loop variable flag (OPLVF) is turned on. 
The count field (OPCNT) is set to 1 (since 
this routine is only entered for primi- 
tives). The symbol table pointer for the 
primitive is moved from the ERF to the OPT1 
(OPTRD1). The left-end switch (DSWT) is 
tested. If it is zero, the symbol table 
location is stored in DEFSYM for CEKKU and 
the switch set to nonzero. If the flag 
(SET FLAG) is nonzero, the operand being 
processed is an asSignment value. If its 
symbol table pointer is equal to the cur- 
rent floating point candidate for Phase 4, 
the candidate is deleted. The sign flag 
(OPSIGN) in the OPT1 entry is set to agree 
with the sign in the ERF. 


Next, CEKKG is entered to determine the 
forward compute point (FCP) and undefined 
level (ULEV) of the primitive. However, 
CEKKG is not entered for loop parameters, 
functions, and constants. Loop parameters 
receive special processing (see below). 
Functions go directly to the exit, leaving 
the OPRLEV set to zero, and the OPTFCP set 
to X*7FFF*. The fields are the same for 
constants, but they do get the remainder of 
the processing in order that an adcon may 
be filed for them. 


For ERF entries that are flagged ‘split 
subscript’, the FCP and ULEV are trans- 
ferred from the symbol table entry for the 
induction variable. The symbol table 
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pointer was temporarily put in the EF adcon 
halfword by CEKKM for this purpose. 


Upon return from CEKKG (or the loop pa- 
rameter processing), the FCP and ULEV are 
moved from the symbol table to OPTFCP and 
OPRLEV, respectively, in the OPT1 entry. A 
“storage location" is formed by adding the 
SLoc field from the symbol table to the 
offset word in the ERF. This, along with 
the storage class (STCL) from the symbol 
table, is used aS a parameter to enter 
CEKLB, which files a covering adcon in the 
symbol table. 


When control is returned from CEKLB, the 
subscripted variable flag is checked in the 
ERF. If it is on, a Special processing 
section is entered (see below). If the 
flag is not on, the pointer to the adcon 
entry in the symbol table is stored in the 
ERF (in EFADCON). Special processing is 
then given to variables with an offset of 
nonzero and to loop variables, to insert an 
@ operator (see below). For all others, 
the type is checked. If it is real, and 
neither a subscripted nor a class array 
item, its symbol table pointer is saved as 
the current floating point candidate in 
GBLREAL. The exit is then taken. 


"AT" Operator Insertion 


The a operator is used to distinguish 
between different bytes of an array for 
constant-subscript items. (In other words, 
it is to distinguish between A (3) and 
A(5).) It also makes occurrences of the 
loop variable inside the loop different 
from references outside the loop. This is 
accomplished by forming a dummy triad, with 
the operator an a2. The displacement is 
stored as the first operand (TROP1), so 
that only references to the same byte of an 
array will be common. The prototype triad 
is formed, and CEKKP is entered to file it 
in the TRIAD Table. Upon return, the triad 
pointer is stored in the OPT1 table and the 
indicator (FI) set for a triad. The a flag 
(ATF) is set in the OPT1 to mark this as a 
dummy triad. The exit is then taken. 


Subscripted Variable Processing 


The remaining entries in the ERF, up to 
the first + preceding the :, are inside the 
subscript. These entries require two 
passes for compiete processing. For the 
first pass special paths are taken in 
CEKKE, CEKKH, CEKKF, CEKKI, and CEKKL. 
Switch (SWCHSB) is set to 1, to mark the 
first path. In addition, the symbol table 
pointer to the adcon covering the array, 
the SLOC of the adcon, and the symbol table 
pointer of the array variable are saved for 
CEKKM. A branch back to check for @ opera- | 
tor is made. 


The 


Loop Parameter Processing 


If SWCHSB is set to 1 the processing is 
inside a subscript. The loop variable flag 
in the ERF ID is cleared. Tnis makes a 
loop variable look like a loop parameter. 
On the second pass the loop variable will 
get the special loop parameter processing, 
but not the special a2 processing, and the 
loop will not be materiaiized (see below). 
The main section is entered just after the 
return from CEKKG. 


If SWCHSB is set to zero, processing is 
outside a subscript. If the loop variable 
flag is on in the ERF, the loop level is 
extracted from the ERF ID field, and used 
to set materialize flag in the PLP table of 
the proper loop 


For all loop parameters the ERF ID is 
changed to variable or constant, with the 
proper type code from the syinbol table. 
The main section is reentered just after 
the return from CEKKG. (CEKKG shoulda not 
be entered for loop parameters, since the 
end-loop routine, CEKKC, has put in the 
proper FCP and ULEV, and CEKKG is not set 
to recognize the special case.) 


CEKKG -- Variable Compute Point and Removal 
Level Routine 


The purpose of this routine is to deter- 
mine the forward compute point and removal 
level for a variable. See Chart DD. 


ENTRIES: The entry point is CEKKGA. 
Register Pi contains the symbol table 
pointer for the variable to be processed. 


EXITS: Register P4 contains the symbol 
table location of the variable processed. 
Registers Pi, P2, P4, and PS are returned 
unchanged. 


OPERATION: If the symbol table entry for 
the variable has the “not computable” flag 
on, the variable is an adjustable dimen- 
Sion; therefore, the varible cannot be 
redefined across level zero. If level zero 
is safe, the undefined level flag (ULEV) is 
set to zero; otherwise, ULEV is set to 1. 


If the "not computed flag" is not on, 
the FCP in the symbol table entry of the 
variable is compared with the current PRF 
pointer (FPT). If the FCP is smaller than 
the FPT, the FCP is still valid. The ULEV 
field is obtained from the symbol table 
entry and compared with the current loop 
level (LEV). If ULEV is larger than the 
current level, it is still valid and the 
routine returns to the invoking routine. 
If ULEV is not larger than the current 
looplevel, the new undefined level is 
determined by checking the FCP against the 
PRF pointer of the BL3 entry of each loop 


ENTRIES: 


from the current ULEV to the current loop 
level. If the FCP is greater (above in the 
PRF) than the BL3 entry of a loop, that 
level is made the undefined level. If no 
level is found for which the FCP is out- 
side, the current level plus 1 is made the 
undefined level. This means that any 
expression involving this variable cannot 
be removed from the current loop. 


In the case where the FCP is not smaller 
than the FPT, a new FCP and ULEV must be 
determined. First, a tentative forward 
compute point, TFCP (in the PRF), anda 
tentative backward compute point, TBCP (in 
the PF), are determined. Two types of 
variables are present: 


1. Normal Variables. The forward defini- 
tion point (FDP) and backward defini- 
tion point (BDP) from the symbol table 
entry are set as the tentative compute 
points. 


2. Variables in Common. For the TFCP, 
the lower of the FDP and the forward 
definition point of the common chain 
(TECPAN) is used. For the TBCP,’. the 
higher of the BDP and the backward 
definition point of the common chain 
(CBDP) is used. 


Once the TFCP and TBCP are fixed, the 
removal level is determined. This is. the 
first safe loop between ULEV and the cur- 
rent loop for which TFCP is higher than the 
BL3 PRF entry for the loop, and for which 
TBCP is lower than the end loop PF entry. 
In other words, there is no definition 
point inside the loop. If the TBCP is 
inside the loop but TFCP is outside, the 
TFCP is reset to the BL3 point before the 
next higher loop is tested. 


When the removal level is determined, it 
is stored as ULEV in the symbol table, and 
TFCP is stored as the FCP. 


CEKKL -- Operand List Expression Formation 


Routine 


CEKKL produces an entry in the OPT1 table, 
representing an expression, formed from an 
operator and the last two operands in the 

operand list (which are thereby deleted). 

See Chart DE. 


This routine is entered at CEKKLA 
with the following input parameters: 


P3 = Address of expression in triad 
table 

P5 = Index into OPT table 

P2 = Current ERF pointer 
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EXITS: Register P2 points to the updated 
current ERF entry. Register P5 contains 
the updated OPT1 entry location. Registers 
P3 and P6 are unchanged. 


OPERATION: A new OPT1, created to repre- 
sent the previous triad, is formed from 
information in the triad entry and the last 
two OPT1 entries. I replaces the lower of 
these two entries. 


The location of the triad is converted 
to a pointer and stored in the new OPT1 
entry. The FCP and RLEV are moved from the 
triad to the OPT1. 


The OPFI is set for a triad entry. 

(OPFI refers to the triad table entry F1 or 
F2 with which the phase is currently con- 
cerned.) The sign flag is moved from the 
SIGNOP cell in the PSECT (stored by CEKKH). 
If the loop variable flag (OPLVF) is on for 
either of the two OPT1 entries, it is set 
for the new OPT1 entry. 


The cell SWCHFL indicates whether CEKKN 
made an insert of a float function during 
the processing of the previous expression. 
If SWCHFL is zero, no insertion was made. 
If SWCHFL is nonzero, it contains the ERF 
location of the entry to which the float is 
to be applied. 


CEKKL tests SWCHFL. If it is zero, the 
ERF location in register P2 is converted to 
a pointer and stored in the OPT1 entry 
OPOLSH. The count fields (OPCNT) from the 
two OPT1 entries are added together, the 
total increased by 1, and the result stored 
in the new count field. This gives the 
number of EF entries in the expression to 
this point (used by CECKM and CEKLD). The 
exit is then taken. 


If SWCHFL is nonzero, the contents are 
put into register P2 as the ERF location, 
and SWCHFL is cleared to zero. The byte 
INSW is set to nonzero, to indicate to 
CEKKN that a float function was inserted on 
the previous entry. The two OPCNT fields 
are added together, but not increased by 1 
before being stored in the new OPCNT. This 
is because the float operator is not in the 
ERF, but in the SERF. 


CEKKH -- Triad File Manipulation Routine 


The purpose of CEKKH is to locate or 
insert in the triad table an entry formed 
from an operator entry in the expression 
file and two operands in the operand push- 
down table. See Chart DF. 


ENTRIES: The entry point is CEKKHA. 
Register P2 contains the location of the 
ERF entry of the operator of the expres- 
sion. Register P5 contains locations of 
the current OPT1 entry. 
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ENTRIES: 


EXITS: Register P3 contains the triad 
location. Registers P2, P5, and P6 are 
unchanged. 





OPERATION: Immediately upon entry, CEKKH 
calls CEKKN to put the operands into canon- 
ical form. Upon return from CEKKN, a pro- 
totype triad entry is generated in working 
storage from the last two entries in the 
OPT1 table and the operator in the ERF. If 
the operator is a semicolon, a function is 
involved. The lower address entry in the 
OPT1 is assumed to be the function. The 
symbol table entry for this item is checked 
for a library function. If it is not a 
library function, the expression is not 
removable. This nonremovability is forced 
by setting the RLEV in the Triad to 55. 
Also, the expression can be common only 
with a similar expression in the same 
statement. This commonality is forced by 
setting the forward compute point (FCP) to 
the current PRF location plus 1. Before 
the next PRF item is processed, the triad 
entry will be deleted by CEKKR. 


For all operators other than semicolons, 
‘2', and for library functions, the removal 
level (RLEV) in the triad is set as the 
higher of the two OPT1 entries of the 
operands. The triad prototype is now com- 
pleted, so CEKKP is entered to find a com- 
mon triad or to file the prototype as a new 
entry. 


If the operator is '?', and both of its 
operands are removable , the RLEV in the 
triad is set to LEV+1 so that the triad 
appears nonremovable. This is necessary 
since both operands of the "?" are con- 
stants for the split-subscript expression, 
yet the expression for the base/index split 
is by nature nonremovable. 


After control is returned from CEKKP, 
the name flag of the triad indicated by 
CEKKP is checked. If the flag is on, the 
triad is already correct. If SWCHSB is off 
(set to 1), the expression is being pro- 
cessed for subscripts for the first pass; 
therefore, the exit is taken. If SWCHSB is 
not 1, the name in the triad and the triad 
pointer are put into the EF entry. 


CEKKP -- Search and Insert Triads 


CEKKP enters new expressions in triad 
table, locates old ones, and removes obso- 
lete ones. See Chart DG. 


The entry point is CEKKPA. 
Register P2 contains the ERF location of 
the operator of the expression. Since a 
prototype triad has been built in the work- 
ing storage area, register N2 will contain 
its location. 


EXITS: Register P3 contains the location 
of the triad. Register f2 is unchanged. 
Register N2 is the same or is updated to 
point to available working storage. 


OPERATION: Upon entry CEKKP locates at the 
point indicated by register N2 the proto- 
type triad, which was put together by 
CEKKH. 


The triad entries are linked together 
through a hash table (TRIH). The nash 
table index is formed by adding together 
the OP1 and OP2 fields of the triad (these 
are either symbol table pointers or other 
triad pointers) and reducing the sum to 
modulo 1020 (X"3FC‘'). The resulting hash 
table entry is the anchor for a chain of 
triad entries. This chain is followed 
until an end-of-chain or a matching triad 
entry is found. 


As the chain is followed, the forward 
compute point (FCP) of each triad is first 
compared with the current PRF location 
(FPT). If the FPT is higher than the FCP, 
the compute point has been passed in the 
PRF and the triad is now obsolete. Thus, 
this triad should not oe considered as a 
candidate for commonality with the proto- 
type. The triad is relinked out of the 
chain, so it is permanently unavailable as 
a common expresSion. 


If the triad is still active (FPT not 
greater than FCP), the key fields are com- 
pared to the prototype‘'s fields for common 
expressions. For two triads to be common, 
the following fields must match exactly: 
OPD1, OPD2, FI1, FI2, SIGNI, SIGN2, OP, and 
RLEV. If a match is found, the location is 
put into register P3 and the exit taken. 


CEKKN -- Canonical Form Routine 


CEKKN puts an expression into a canonic- 
al form so that expressions differing only 
in nonessential variations will be reco- 
gnized as common. See Chart DH. 


ENTRIES: The entry point is CEKKNA. 
Register P2 contains the location of the 
ERF entry for the operator of the expres- 
Sion. Register P5 contains the location 
ofthe OPT1 entry for the second (or right) 
operand of the expression. 


EXITS: Registers P2, P5, and P6 are 
returned unchanged unless there was a float 
function inserted, in which case P2 points 
to the EF insert in the work area and P5 
points to the generated OPT1 entry for the 
insert. 


OPERATION: If the operator is not plus, 
multiply, divide, greater than, less than, 
AND, OR, or equal, the routine exits. For 
plus, multiply, and divide, the type is 


checked. If the operator is a Real*4 or 
Real*8, the types of each operand are 
checked. If one type is Integer*2 or 
Integer*4, a Float function is to be 
inserted in the EF at that point. The cur- 
rent ERF location is stored in SWCHFL, and 
P2 set to point at the preset EF entry for 
the function in working storage. The 
necessary OPT1 entries are inserted and the 
routine exits. On the next entry INSW 
indicates that the last entry had a float 
insert, thus preventing another from being 
inserted, and normal processing continues. 


The processing is an attempt to make as 
many triads common as possible. This is 
done by always putting the smaller OPD 
field as OPD1 and by moving any minus signs 
up to the operators (since the operator 
Sign does not affect commonality, but the 
operand sign does). 


CEKKI -- Expression Removal and Commonality 
Determination Routine , 


The function of CEKKI is to determine 
commonality or removability of an expres-.. 
sion, to make entries in the compute and | 
remove table (CRT), to mark last occur- © 
rences, and to taily popularity counts. 
See Chart DI. 


ENTRIES: The entry point is CEKKIA. This 
routine uses the two common registers of . 
Phase 3: Ni, covering intercom and the . 
rest of the second page of the phase PSECT; 
and N2, covering the unused area start ‘ 
point of the phase PSECT. Input parameters 


are 
P2 = ERF location 
P3 = Address of triad entry is 
dominant operator 
P4& = OPT entry address this operand 
EXITS: This routine has one normal exit. 





Except for catastrophic returns to the 
Phase 3 abort point, there are no other 
exits and no output parameters. 


OPERATION: This routine processes one 
operand of a triad on each entry. Upon 
entry, CEKKI loads the ERF location from 
the OPT entry. If the operand is a primi- 
tive or an @ operator, the conditions are 
tested for counting the popularity of the 
covering adcon for global register 
assignment. 


The adcon is not counted for any one of 
the following conditions: 


1. The “*adcon" field of the EF is 
X'8000°. 


2. The I/O flag, set by CEKKU, is on. 
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3. The variable is an array variable. 


4. The processing is in the first pass of 
a subscript. 


5. The operand is part of a normal 
expression. 


6. The EF entry is a function. 


7. The triad entry is a removed 
expression. 2 


8. The triad entry is a common 
expression. 


If the triad is removable to level zero 
and is occurring at level zero, the adcon 
is counted when the expression occurs for 
the first time. If it is not occurring for 
the first time, the count is set to -5 to 
reduce the previous count, Since the expre- 
SSion will now be removed. CEKKO is used 
to tally the popularity. 


If the indicated operand is an operator 
(other than aor ,), it is checked for com 
monality or removability. An expression is 
considered removable if its removal level 
is not greater than the current loop level. 
If the removabie expression nas not expres- 
Sion has not been named, CEKKK is entered 
to give it a name. If the last-use flag 
has not been set, it is now set. If the 
forward compute point for the expression is 
above the begin-loop-1 entry of the current 
loop, CEKLE is entered to file a compute- 
and-remove table entry at begin loop 1 to 
insure expression generation at the loop 
top. The expression is replaced in the EF 
by a residue in CEKLD. Finally, if the 
expression is integer and not part of a 
larger removable expression, it is tallied 
by CEKKO as a candidate for global register 
assignment. 


If the expression is not removable, it 
undergoes the following processing. If it 
is named, no further processing occurs. If 
this is the first occurrence, it is linked 
into the JOINTE chain. This chain causes 
the PF location to be stored in the last 
occurrence field of the triad entry by 
CEKKE. If this is not the first occur- 
rence, the next larger expression is 
checked for commonality. If the larger 
expression is common, the current expres- 
Sion is not processed further except to 
insure that it is in the JOINTE chain. If 
the next larger expression is not common or 
if this is its first occurrence, the cur- 
rent expression is checked by CEKKJ for 
commonality. If the current expression is 
common, it is named by CEKKK and the last 
use bits are set. 


Expressions involving the induction 
variable are processed for removability in 
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a special manner. If the removal level is 
higher than the current level, the expres- 
sion is not removable. If the removal 
level is lower than the current level, the 
expression is removable. If the removal 
level is equal to the current level, anoth- 
er test is used to determine removability. 
The forward compute point for the expres- 
sion is compared to the begin loop 1 PRF 
location of the current level. If the FCP 
is higher than or equal to BL1, the expres- 
Sion is treated as removable. If it is 
less than BL1, it is treated as a special 
nonremovable. : 


CEKKJ ~- Check Commonality 


CEKKJ determines whether any entries in 
the PRF between first and second occur- 
rences of an expression rule out their 
being common. See Chart DJ. 


ENTRIES: The entry point is CEKKJA. 
Register P2 contains the ERF location of 
the operator of the expression. Register 
P3 contains the location of the triad entry 
for this expression. : 


EXITS: There are two exit points from 
CEKKJ. The “common" exit (KJ900) returns 


with a return code of nonzero. The “not 
common” exit (KJ950) returns with a return 
code of zero. Registers P2, P3, P&, P5, 
and P6 are returned unchanged. 


OPERATION: This routine is entered if 
there have been two occurrences of the same 
expression, the current one is not remov- 
able, and the expression is unnamed. The 
name field of the triad entry contains the 
PF pointer to the previous occurrence 
(which was inserted by the JOINTE chain at 
the end of the processing by CEKKE). If 
the name field contains an X‘8000', the 
previous occurrence is in the statement 
currently being processed. In this case 
the expressions must be common, so the 
“common” exit is taken. 


If the name field is not X'8000', the 
pointer to the last label definition point 
in the PF (LBDP) is compared with the PF 
pointer to the last expression. If the 
label pointer is higher, then a label has 
intervened and the expressions cannot be 
common. The "not common” exit is taken. 


If the label pointer was not higher than 
the PF pointer, the expressions still may 
not be common if the end loop of an unsafe 
loop intervenes between the two occur- 
rences. The end loop location (found in 
the PLP Tables) of each loop in the current 
nest is checked down to level zero. If the 
end loop is between the two occurrences, 
the "unsafe" flag of the PLP is checked. 

If it is on, the “not common” exit is then 
taken. If the flag is not on, the next 


lower level is checked until an end loop 
entry is found which is lower than the pre- 
vious occurrence (the level zero end loop 
location will always be lower). Then the 
"common" exit is taken. 


CEKKK -- Establish Common Expression 
Routine 


This routine’s purpose is to assign a 
name to an expression, to put that name in 
the previous occurrence that is common, and 
to enter the name in the CRT at the forward 
compute point. See Chart DK. 


ENTRIES: The entry point is CEKKKA. 
Register P2 contains the ERF location of 
the operator of the expression. Register 
P3 contains the triad entry location. 


EXITS: Registers P2, P3, P4, P5, 
are unchanged. 


and P6 


OPERATION: Upon entry, CEKKK loads the 
last assigned name from TENCSX and adds 1 
to it to create a new name. The new name 
is checked for a value greater than 4095. 
If it is greater, the error exit is taken. 
If the name has a value of 4095 or less, it 
is stored in TENCSX as the new last~used 
name. 


If the QOFLAG of the triad is zero or if 
the name field of the triad is not X‘'8000', 
the name contains a PF pointer to the pre- 
vious use of the expression. The pointer 
is loaded ina register, and the expression 
name is stored in the name field. Then 
CEKLA is entered to mark the previous 
occurrence as "CSX* and “last-use."* 
QFLAG is on or if the name field is 
X"8000', CEKLA is not entered, because the 
last occurrence is in the current 
statement. 


If the 


Upon return from CEKLA or if it was 
skipped, the name flag is turned on in the 
triad. 


The forward compute point is loaded into 
a register from the triad to file a compute 
and removal table (CRT) entry at that 


point. CEKLE is entered to file the CRT 
entry. Upon return from CEKLE, the exit is 
taken. 


CEKLA -- Label Common Expressions 


When it is determined that an expression 
is a common expression, this routine 
locates in the PF the previous occurrence, 
labels it "CSX,* and marks it as last 
usage. See Chart DL. 


ENTRIES: The entry point is CEKLAA. 

Register Pl contains a PF pointer for the 
major operator of an expression containing 
a common subexpression. Register P3 con- 


tains the location of the subexpressions 
TRIAD entry. 


EXITS: Register Pi, P2, P3, P4&, PS, 
are returned unchanged. 
put parameters. 


and P6 
There are no out- 


OPERATION: The location of the expression 
in the EF containing the previous occur- 
rence is computed. A counter is started 
with a value of 1. The ID of each EF entry 
in the expression is checked, starting from 
the right end (major operator) and going to 
the left end. If the entry is a primitive, 
the counter is reduced by 1, the EF loca- 
tion is reduced by 8, and the next entry is 
checked. If the entry is a 'CSX' (common 
expression), the count is increased by 1, 
and the next EF entry checked. 


When an operator is encountered in the 
EF, the triad pointer saved in the EF 
(EFTRD) is compared with the pointer to the 
current triad. If they do not match, the 
count is increased by 1 and the next EF 
entry checked. 


If the triad pointers match, the name is 
moved from the triad to the EF. The::opera- 
tion code in the ID field of the EF entry 
is changed to a CSX (the type is retained). 
The last use flag is set in the triad and 
in the EF. ‘ 


There can be more than one occurrence of 
the triad within an expression, if it is a 
subexpression of two larger expressions 
which are also common. Therefore, each 
expression must be scanned to the end. . The 
end is reached when the counter is reduced 
to zero. Then the exit is taken. 


CEKLE -—- File CRT Entries 


CEKLE locates a previously filed entry, 
if present, or files a new entry in the 
compute and remove table. See Chart DM. 


ENTRIES: The entry point is CEKLEA. 
Register P1 contains a PRF pointer, indi- 
cating where the compute and remove point 
is. Register P3 contains the location of 
the triad entry. 


EXITS: Registers P1, P2, P3, P4&, P5, and 
P6 are returned unchanged. 


OPERATION: The PRF pointer to the filing 
location is converted to a hash table 
index, by taking the PRF location module 
1020. The chain from that hash entry is 
followed until one of the following condi- 
tions exists: 


1. An end-of-chain is encountered, which 
causes the entry to be inserted as the 
last entry in the chain. 
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2. The same triad entry is found, which 
causes an exit. 


3. A PRF pointer is found that is less 
than or equal to the indicated point- 
er. This causes the entry to be 
inserted into the chain at this point. 
The PRF pointers should be in descend- 
ing order as the chain is followed out 
from the hash table. 


CEKLD -- Expunge a Removable Subexpression 


This routine replaces a subexpression 


with a series of null entries and one resi-— 


due entry, indicating the expression by 
name. See Chart DN. 


ENTRIES: The entry point is CEKLDA. 
Register P2 contains the ERF location of 
the operator of the expression. Register 
P3 contains the triad location. Register 
P4 contains the OPT1 entry location for the 
expression. 


EXITS: Registers P2, P3, P4, P5, and P6 
are returned unchanged. 


OPERATION: The count field from the OPT1 
entry indicates the number of EF entries in 
the expression. This number is reduced by 
1, multiplied by 8 (for eight bytes per EF 
entry), and subtracted from the "“right-end" 
location to give the “left-end" location. 
These two locations are used as limits to 
check the SERF chain for inserts. When the 
insertion point into the ERF falls between 
the two limits, that SERF entry is deleted 
by relinking the SERF chain. When the end- 
of-chain is encountered, the ends of the 
SERF chain are restored. 


Each ERF entry in the expression is then 
checked. If the ID indicates a residue, 
the last use flag on the ERF entry is 
checked. If it is on, the triad location 
is loaded and the last use flag in the 
triad is cleared. 


The ID is then set to null (zero), which 
causes CEKLF to skip the entry when copying 
the ERF into the PF. 


When the right end is reached, the ID is 
set to a residue and the exit taken. 


CEKKM -- Subscript Expression Revision 


Routine 


This routine’s purpose is to revise a 
subscript expression to include the address 
constant as a term and to be optimal as 
regards computation with loop variables and 
removable expressions. See Chart DO. 


ENTRIES: The entry point is CEKKMA. 
Register P2 contains the ERF locations of 
the first + operator encountered in the 





124 


subscript expression. Register P5 contains 


the current OPT1 entry location. 


EXITS: Register P2 contains the ERF loca- 
tion of the first operand of the sorted 
subscript expression. Register P5 contains 
the OPT1 location for the first entry of 
the sorted subscript expression. 


OPERATION: This routine is entered when 
the preliminary scan has reached the first 
of a string of + Signs prior to the :. It 
counts these to determine the range of the 
expression to be revised, and the number of 
operand entries in the OPT Table which are 
invoived. Then it sorts these entries in 
OPT on removal level, loop variable indica- 
tor, and forward compute point. A new OPT 
entry is preset for the new operand 
(address constant). The entire Polish str- 
ing, including the preformatted address 
constant entry, is copied into working 
storage. From there it is copied back in 
the new order, in blocks of operands. 


Each block consists of all operands with 
the same removal level and loop variable 
indicator. For each block a string of + 
signs with the maximum type code, is placed 
in a pushdown list and copied into the 
revised string to connect the operands 
within that block. For each biock, an 
operator is set aside in a pushdown list: 
the operator being ! if the loop variable 
flag is raised, or + otherwise. The push- 
down list of block operators is moved into 
the revised string when the removal level 
drops below the current level, and the 
pushdown list is reinitialized with the ? 
operator. Whena ‘!" operator is 
selected, if a '?" has not been put on the 
block operator list, then the induction 
variable is the least removable term. If 
the loop is innermost with no external 
calls (i.e., the GLOBAL flag is on) a split 
subscript is created. This is done by tak- 
ing the expression in the ERF which has the 
form: 


IVAR OPND2 *# 


where OPND2 can be a constant or an expres- 
sion, and changing it to the form 


OPND2 ZERO ! 


where ZERO is an ERF operand for the con- 
stant 0. A °?* operator is then added to 
the block operator list so that it will 
Split the removable parts of the expression 
(e.g., the adcon) from the recursive. When 
all blocks have been moved, the pushdown 
list of block operators is moved into the 
revised string. 


CEKKA -- Acquire Entry from Compute and 
Removal Table : 


This routine locates one entry in the 
compute and removal table which falis 
within a given range of PRF locations, if 


at least one such entry exists. See Chart 
DP. 
ENTRIES: The entry point is CEKKAA. Reg- 


ister P2 contains the location of a byte, 
four bytes in front of a CRT pointer. Reg- 
ister P3 contains the hash table index of 
the original entry point (also in LOCHCR). 
Register P4 contains the limiting 2PRF loca- 
tion. Register NI convers the intercon 
area, and register Ll covers the work area. 


EXITS: If register P2 is zero, no valid 
entry was found. Otherwise, register P2 
contains a pointer to the CRY table. 
LOCCRT contains the previously found CRT 
entry (used for deleting). Registers P5 
and P6 are returned unchanged. 


OPERATION: Upon entry, CEKKA saves the 
register P2 in the cell LOCCRT (the proce- 
dure is also done when the routine loops 
around). This is the location of either an 
HCRT entry or a CRT entry. (See "Hash 
Table for Compute and Removal Table and 
Triad Entries".) The location is used to 
relink the chain and to delete an entry 
from the CRT. 


The pointer to the next CRT entry is 
checked for an end-of-chain. If it is not 
an end-of-chain, the location of the indi- 
cated entry is loaded into register P2. 
The forward compute point in the CRT entry 
is compared to the limiting PR location 
(register P4). If the FCP is not higher 
than the limiting PRF location, a legiti- 
mate CRT entry exists, and the exit is 
taken. 


If the FCP is higher than the limiting 
PRF location or if the CRT pointer was an 
end-of-chain, register P2 is set to zero, 
so that any exits will indicate "no valid 
entry found." The Limiting PRF location is 
converted to a hash index and compared to 
register P3 in order to determine if the 
search should be continued. If they are 
equal, the limiting PRF location is checked 
against the current PRF location, to deter- 
mine if the entire table should be checked. 


If the limiting PRF location is within 
1024 bytes of the current PREF location, the 
search is completed and the exit is taken. 
If not, the entire table must be searched. 
In this case, or if the limiting hash index 
does not equal register P3, register P3 is 
checked to see if the top of the HCRT has 
been reached (255). If it has, register P3 
is set to zero, the bottom of the HCRT. If 
not, 1 is added to the index to examine the 


next hash entry. The index is then com- 
pared to the cell LOCHCR, which contains 
the original index. If they are equal, the 
entire table has been searched and the exit 
is taken. If they are not equal, the new 
HCRT location is loaded into register P2, 
and the routine returns to the top to save 
this value in LOCCRT. 


CEKKB -- Polish Expression Generation 
Routine 


The function of CEKKB is to convert an 
expression from triad table format to 
expression file (ERF) format to be placed 
in the program file. It is used to reform 


removed and loop control expressions. See 
Chart DO. 
ENTRIES: The entry point is CEKKBA. Reg- 


ister P2 contains the location of the triad 
pointer for the start of the expression. 
Register P5 contains the location of the 
current PRF entry. Register P6 contains 
the location of the next available word in 
the PF (used to store the EF entries). 
Register N1 covers the intercom area, reg- 
ister N2 points to the first available word 
in working storage, and L1 covers theswork 
area. nt 


EXITS: Register P6 points to the new: first 
work in the PF. Register N2 points to the 
new first word in working storage. Regis- 
ters PS and Ni are the same as when 
entered. Registers N3, L2, and P2 through 
P4 are saved and restored. A pointer:.to 
the last EF entry filed is in RMVAL. | 


oe 
a7 


Three error conditions are detected in 
this routine: 


1. Overflow of the program file. 
2. Overflow of the working storage area. 


3. An illegal type code in the symbol 
table. 


For all conditions, the standard Phase 3 
error exit (CEKKRE) is taken. 


OPERATION: This routine uses an operator 
pushdown list (Type 2) of its own to build 
a left-hand Polish string from the triad 
table entries. It follows the left (OP1) 
branch of each expression until a primitive 
is reached, then it takes the first right 
branch (OP2) above the primitive and 
repeats. The output expression is formed 
in the program file and is followed by a 
field (RMVAL) which links it in a chain of 
expressions connected to a BL1, BL2, or BL3 
entry. 


The dummy operator @, which is intro- 
duced for a constant subscript or an induc- 
tion variable outside a subscript, is 
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deleted in this routine, and the two 
operands (variable and adcon) are combined 
to produce one variable entry in the 
Polish. If the induction variable is rec- 
ognized (in a subscript, not under the 9), 
it is replaced with the increment expres- 
sion, and, if that is a constant, the pro- 
duct of two constants is replaced with a 
new constant. 


When the right operand of a triad 
flagged as ‘split subscript’ is recognized, 
Special processing takes place. As in 
normal subscript expressions, the loop step 
is introduced into the expression; constant 
arithmetic being done where required. If 
the split subscript is aiso the *BXLE on 
recursive’ candidate, the symbol table 
pointer to the constant recursive step is 
saved so that its GIRL entry can be deleted 
by CEKKW. 


For a special begin loop 2 entry (BL2GT 
is on), a dummy triad entry is built in 
working storage and pointed to by a new 
OPT2 entry. The program is repeated to 
file a test expression in the EF. 


CEKKO -- Save Popularity Counts for 
Register Assignment 


The function of this routine is to cre- 
ate new entries as needed in the list of 
expressions to be considered for global 
register assignments and to keep a popu- 
larity of usage count. See Chart DR. 


ENTRIES: This routine is entered at CEKKOA 
with the following register assignments: 


Pi = Weight 

P2 = Address of Triad entry, Symbol 

Table entry of Adcon, or expres- 

sion name 

Indicator (0 = Symbol entry, 1 = 

Triad entry, 2 = expression name) 

P4 = Level in which the popularity is 
to be counted. 


P3 


EXITS: Registers P5 and P6 are returned 
unchanged. 


The new GIRL entries are stored in work- 
ing storage. If working storage is over- 
flowed, the Phase 3 error exit is taken. 


OPERATION: Upon entry CEKKO checks the 
indicator in P3. If it is set to zero, 
register P2 contains a symbol table pointer 
which is to be saved. If the indicator is 
set to 1, P2 contains a triad pointer. In 
this case the triad location is computed, 
and the name field is loaded into P2. If 
the indicator is set to 2, the name is 
already in P2. In both cases, a X‘*7000° is 
added to the name, so that Phase 4 can dis- 
tinguish names from symbol table pointers. 
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The location of the PLP table entry for 
the level given in register P4 is deter- 
mined. The GPLINK chain points to GIRL 
table entries for the loop; this chain is 
followed until an end-of-chain or until the 
GLBL of a GIRL entry matches register P2. 


If a match is found, the weight (regis- 
ter P1) is added to the popularity count in 
the GIRL entry, and the exit is taken. 


If the end-of-chain is found, a new GIRL 
entry is linked into the GPLINK (it will be 
the new end-of-chain). Register P2 is 
stored as the GLBL, and the weight is 
stored as the popularity count. The exit 
is then taken. 


CEKLB -- File Constant and Covering Adcon 


The function of this routine is to file 
a constant, compute and file its covering 


adcon, and compute the displacement. See 
Chart DS. 
ENTRIES: The entry point is CEKLBA. Reg- 


ister P1 contains the 4-byte address con- 
stant (adcon) to be filed in the symbol 
table format of SLOC and storage class 
(STCL). Register P2 contains either the 
ERF location of where the adcon pointer is 
to be stored or zero if the adcon pointer 
should not be stored. Register P4& contains 
the symbol table location of the original 
entry for which the adcon is being filed. 


EXITS: Registers P2, P4&, P5, and P6 are 
returned unchanged. 


When the return code found in register 
L3 in nonzero, and error occurred in the 
executive subroutine. The Phase 3 error 
exit is taken. 


OPERATION: Upon entry CEKLB saves the 
storage class byte (STCL), which is assumed 
to be the right-most byte of register Pi. 
The parameter is put into an even-numbered 
working register and shifted into the fol- 
lowing odd-numbered register, with the sign 
being extended so that the SLOC value is 
right-justified in the odd-numbered regis- 
ter. This value is now divided by the 
value 4080, which represents the number of 
bytes covered by an adcon. The result is a 
page number in the even-numbered register 
and a displacement in the odd-numbered reg- 
ister. If the sign of the resulting dis- 
placement is negative, the page number is 
reduced by 1 and the displacement is 
increased by 4080. If subscripts are being 
processed (SWCHSB#¥0) or if the EF location 
(register P2) is zero, the displacement is 
not saved; otherwise, it is stored in the 
indicated EF entry. 


In either case, the page number is mul- 
tiplied by 4080, to compute the page bound- 


ary location. The result is the new SLOC, 
which is shifted, and the saved STC. is 
inserted in the right-nost byte. the 
resulting word is stored in TECNS1 for the 
executive subroutine which is now entered. 
The executive subroutine checks the symbol 
table, to see if an entry has already been 
filed for the parameter. If one has not, a 
new entry is created in the symbol table. 


Upon return from the executive subrou- 
tine, the return code (register L3) is 
tested. If it is nonzero, an error 
occurred in the executive subroutine and 
the error exit is taken. If the return 
code is zero, the symbol table entry for 
the parameter (input in register P4) is 
checked to see if the item is a formal 
argument. If it is not, the exit is taken. 
If it is a formal argument, the cell TEGNU 
in Intercom is checked. If TEGNU is non- 
zero, a new adcon was filed for the last 
parameter. In this case, an entry is made 
into the formal argument adcon table 
(FAAT). The location of the next available 
entry in FAAT is found in TEFAAT in inter- 
com. The adcon's symbol table pointer in 
TEPNTR in intercom is moved to FAAT. The 
STCL is moved from the argument's symbol 
table entry to the FAAT entry. The FAAT 
location is increased by four bytes, to 
point to the next entry, and restored in 
TEFAAT. The exit is then taxen. 


CEKLI -- Loop Test-Expression Generator 


This routine generates the test expres- 
Sion, used for determining the end of a DO 
loop, by modifying the last recursive 
expression. See Chart DT. 


ENTRIES: The entry point is CEKLIA. Reg- 
ister P6 contains the EF point for the next 
entry, register Nl covers the intercom 
area, register N2 contains the next avail- 
able word in the work area, and register Ll 
covers the PSECT . 


EXITS: Register P6 points to the new next 
entry in the EF; registers Ni, N2, and Lil 
are unchanged. 


OPERATION: The location of the recursive 
expression to be used for generating the 
test expression is found in the word EFSAV. 
It was saved as CEKKB regenerated the 
recursive expression at the BL2 entry. The 
form of the recursive expression is assumed 
to be: 


(OP1) (OP2) ! 
where 
OP1 can be a constant or an expression 


OP2 can be an adcon, residue, expres- 
sion, or constant 


The location given in EFSAV points to 
the ! operator. By uSing a backward scan, 
the start and end of OP2 are found and 
saved. OP1 is then copied into the EF, and 
its last use flag is cleared in the origi- 
nal expression. 


If the loop is not marked as BXLE on 
recursive, a new term is inserted into the 
expression to generate an expression of the 
following form: 


(OP1) (fT) * (OP2) + 
the !] 


{the + replaces 


where 
T is an expression of the form 


U-L+s 

S 
Upper limit 
Lower limit 
Step size 


QHeG 
woud 


This routine will perform constant 
arithmetic wherever possible to reduce the 
T expression. The following cases are 
considered. : 


1. L = Constant, U = Constant, S =. 
Constant 


A new constant, 


t = U-LtsS, 
S 


is calculated. Two subcases then 


exist: 


a. If OP1 is a constant, a new con- 
stant tz = t * OP 1 is formed, 
filed in the symbol table, and 
entered in the EF to replace OP1 
forming 


(tz) (OP2) + 
b. If OP1 is not a constant, t is 
filed in the symbol table and 
inserted to form the expression 


(OP1) (t) * (OP2) + 


2. L= Constant, U = Constant, S = 
Variable 


A constant, t = U - L, is calculated, 
filed in the symbol table, and 
inserted to form 
(OP1) (tS + S /) * (OP2) + 
3. L = Variable, U = Constant, S = 
Constant 
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A constant, t = U + S, is calculated 
and filed in the symbol table. Two 
subcases are considered: 


a. If the step size is 1, the divide 
is omitted to form the expression 


(OP1) (t L +) * (OP2) + 


b. If the step size is not 1, the 
expression is 


(OP1) (t« L +S /) * (OP2) + 


L = Constant, 
Constant 


U = Variable, S = 
A constant, t = S - L, is calculated 
and filed in the symbol table. 


a. If step is equal to 1, the expres- 
Sion formed is 


(OP1) (U t + 1MAX) * (OP2) + 


b. If step is not equal to 1, the 
expression is 


(OP1) (U t + S / 1MAX) * (OP2) + 


L = Variable, s= 


Constant 


U = Variable, 


a. If step is equal to 1, the expres- 
Sion formed is 
(OP1) (0 L S ++ 1MAX) * (OP2) + 
b. If step is not equal to 1, the 


expression generated is the same 
as given in 6 (below). 


L = Variable, U = Constant, 
S = Variable 

L = Constant, U = Variable, 
S = Variable 


L = Variable, U = Variable, 
S = Variable 


The full expression is inserted to 
form the expression 


(OP1) (U L S ++ S / 1IMAX) * (OP2) + 

If the loop is marked as a BXLE on 
recursive, the recursive expression has the 
form: 


constantl1 constant2 ! 


where constanti is the value that is put 
into register 14 by Phase 4, and constant2 
is zero, the initial value of the 
recursive. 


The test expression generated has the 
form: 


constant3 U L + # 


where constant3 represents a new constant 
generated by dividing constanti from above 
by the loop step. 


When both the upper and lower values are 
constants, the test expression is merely 
one constant EF item. 


In either case, an EF item for constant3 
is created, and its pointer is set in the 
INC field of the BL2. This is used by 
Phase 4 when the loop is “materialized on 
exit." 


An internal subroutine, SETUP, is 
entered to generate an EF entry for each of 
the three loop parameters. A flag is set 
for each parameter, to indicate whether it 
is a constant or a variable. These flags 
are then tested to determine which case 
exists, and the proper subsection is 
entered to generate the test expression. 


INTRODUCTION 


The objective of Phase 4 is to produce 
from the program file (PF), which is its 
primary input, a representation of the 
object program ina form very close to 
machine code, the code file, which is its 
primary output. Other output consists of 
entries made in the symbol table; parameter 
list entries and V/R adcon-pair entries 
arising from external references; location 
counter values associated with statement 
labels; numeric constants filed as comple- 
ments of constants filed as complements of 
constants referenced in the PF. 


The major functions of Phase 4 are pri- 
marily oriented about source program state- 
ments and expressions as they are repre- 
sented in the PF. A documentation module, 
or component, is associated with each of 
these major functions. 


PHASE 4 PROCESSING 


Processing is directed by the phase con- 
troller (PHAS4), which simply performs a 
Single scan of the PF. During this scan 
PHAS4 passes control to the particular PF 
entry processor appropriate to the identi- 
fication of each PF entry encountered. Its 
sole functions are to perform this scan, to 
select the processors, and to terminate 
Phase 4 processing when the end program 
item is encountered in the PF. The follow- 
ing list indicates the relationship between 
the source language statements and the PF 
entry processing routines: 


Routine Source Language Features 

Name Processed 

ENT Main program or subprogram main 
or alternate entry -- entry pro- 
logue generation. 

LABEL Source- or compiler-created 
statement label. 

EQUAT Arithmetic statement. 

AIF Arithmetic IF statement. 

LIF Logical IF statement. 

GOTO Unconditional GO TO statement. 

ASSIGN ASSIGN statement. 

AGO Assigned GO TO statement. 
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CGO Computed GO TO statement. 

CALL CALL statement. 

RTRN RETURN statement. 

BL1 

BL2 
DO statement 

BL3 

ENDLP 

RD All I/O statements. Generate 
transmission initialization call. 

OLIST Any I/O statement that includes a 
list. Generates list element 
transmission call(s). 

NDLST Any I/O statement that includes a 
list. Generates termination 
call. ant 

STOP STOP and PAUSE statements. 


A major component of Phase 4 is the 
arithmetic generator, AGEN. Its function 
is to generate code to evaluate the expres- 
sions that are represented in the PF. AGEN 
is called to process the operands of any PF 
statements which may reference either gen- 
eral arithmetic expressions or PEDSCELEE 
expressions. 


AGEN is primarily a control routine 
which directs the activities of expression- 
operator generating routines. These lower 
level routines are tailored to process 
specific arithmetic operators, or even 
specific operator/type combinations. These 
routines, as well as the higher level PF- 
entry processing routines, make use of a 
collection of service routines, which are 
categorized and whose functions along with 
those of the higher level routines are sum- 
marized below. 


Expression Generator Control Routines 


AGEN Expression generator control. 
TRBLD Expression tree formation. 

WGHT Order of evaluation determination. 
cSxX Common expression usage count 


determination. 


Expression Operator Generating Routines 


RPLUS Real addition and subtraction. 
RMUL Real multiplication. 

RDIV Real division. 

IPLUS Integer addition and subtraction. 
IMPLY Integer multiplication. 
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IDVDE Integer division. 

LADDR Special addition by means of LA 
instruction.- 

CPLUS Complex addition or subtraction. 

CMUL Complex multiplication. 

CDIV Complex division. 

RLTNL Relational operations. 

ANDOR Logical operations. 

MAX Maximum and minimum operations. 

FUNC External function reference 
operations. 

COMMA External function argument 
processing. 

DCOM Open function processor selector. 

OPEN1 

OPEN2 

OPEN3 Inline (open) function 

OPEN4 processors. 

OPEN5 

OPEN6 


Memory Reference Covering Routines 
MEMAC 


COVER 
SADDR 
LBL 

FETCH 


Operand-Reference Optimizing Routines 
SELOP 


SLPOS 
SLONE 
SELGM 
SELGD 


Operand Locating Routines 
KEY 


KEY1 
FNDAR 
FNDFR 


Operand-Usage Processing Routines 
OPND 


RSLT 


Register Selection Routines 
SELSR 


SELDR 
SELFR 


Register Assignment Routines 
ASAR 


ASARS 
ASFR 
ASFRS 


Temporary storage Allocating Routines 
FNDWS 


RLSWS 


Miscellaneous Routines 
INSOT 
FLUSH 
EDIT 


130 


Expression Generation 


The first stage of expression generation 
converts the expression form, in which each 
binary operator is preceded by first its 
left and then its right operand, to a tree 
form (see Figure 24). In expression form 
the relationship between operator and 
operand is implicit in the ordering of the 
expression. In tree form the relationship 
is made explicit by linking each operator 
to its operands with explicit address 
pointers. The tree is also backlinked so 
that each nonprimitive operand (operator) 
is linked to the operator upon which it 
depends. The tree is now equivalent to a 
push-down table with space at each level 
(tree node) to record information about the 
generation status at that node. 


During the process of conversion to tree 
form, conversion function operations are 
introduced, where necessary, to obtain type 
compatibility between the operands of cer- 
tain of the operators. This is done to 
reduce the number of individual cases pre- 
sented to the expression-operator 
generators. 


When the expression tree has been 
created, the order in which the component 
operations of the expression are to be 
generated is determined. The language 
rules require that expressions be asso- 
ciated from left to right. This associa- - 
tion is explicit in the expression form 
input to Phase 4, and converting to tree 
form does not change this association. 
However, it does allow easy change in order 
of computation at any level in the tree. 
For example, consider the expression 


(A*B) + (C+D) 
which is represented by Phase 1 as 
AB*¥CDt+t+ 
If generation is to proceed directly 
from the latter, the easiest and most 
natural way to proceed would be first to 
compute A*B, then C+D, and then to add the 
two partial results. However, the language 
does not require this ordering. 
The expression in tree form is written 
+ 
es 


ZN LN 


VARIABLE OR CONSTANT FUNCTION 








Oo 4 8 10 12 14 6 . 3i 0 4 8 10 12 14 = «16 31 
Symbol Table Pointer p Function Number of 
Wer eet Symbol Table Pointer 
0 Displacement 
Word 
0 16 31 
Word 3 2 LOP 
2 Unassigned 
1 Priority Number or NAME Table Pointer 
Weight 
0 Displacement 





NAME Table Pointer 





Legend U unassigned 
1D identifies the Tree Table entry : F6 VO flag 
1 = Operator F5 use secondary temp. 
2 = Common Expression 
3 = Adcon F4 examined 
5 = Variable 
& = Constant F3 weighted 
7 = Function 
8 = Residue F2 computed 
; oe FI sign 
TYPE identifies the entry type: : 
, 7 . : BLINK link to first byte of operator of next 
ee sone iy node up (back-link ) 
os ie a LOP link to first byte of left operand 
= Integer 
: = =, . ROP link to first byte of right operand 
= Rea 
7 = Complex *8 OP operator code 
8 = Complex *16 
REG register (if R=1) 
M in memory 
MS memory sign 
R in register 
RS register sign 


Figure 24. Expression Tree 
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Given this form, with direct address 
links as indicated, it is no easier to com- 
pute first along one branch of the highest 
level operator than it is along the other. 
Thus, this representation allows a choice 
of order of computation based upon criteria 
which are designed: 


1. To minimize the numbers of active par- 
tial results and thereby to use fewer 
registers. 


2. To favor computation of denominators 
before numerators in order to avoid 
unnecessary loads and stores. 


3. To compute first along paths contain- 
ing function references so as to mini- 
mize the possibility of having to 
store partial results which are in 
registers volatile with respect to the 
function calls. 


The order of computation is determined by 
the routine WGHT which assigns at each tree 
node a priority number (or weight) and 
records it in the tree. 


Starting with the major operator of the 
tree, AGEN examines the left and right 
operands. If neither is primitive (a vari- 
able, a constant, or an already computed 
operator), the link is followed from the 
operator to its higher weighted operand. 

If the weights are equal, then arbitrarily 
the left link is followed. This new, lower 
level, operator is then examined in the 
same manner. If at any time only one 
operand is primitive, the other link is 
followed. The search is concluded when an 
operator with two primitive operands is 
found. At this point generation for the 
operator proceeds. 


The operator code and expression type 
are used to select an expression-operator 
generator, and the appropriate module is 
invoked. 


The expression-operator generator is 
tailored to the operation to be performed 
and to the types of its operands, with con- 
sideration given to the location of 
operands (in registers or storage); the 
requirement for even/odd register pairs; 
the availability of the register containing 
an operand; the selection of which operand 
register is to contain the result; etc. 
Lower level routines are invoked for 
various functions: to select registers; to 
determine when operands are no longer 
needed and to free the registers in which 
they reside; to protect an operand by mov- 
ing it to another register before the con- 
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tents of the former register are altered; 
to assign temporary storage and store 
Operands in temporary storage for later 
use; to obtain cover for and assign B2, X2, 
and D2 instruction fields for storage 
references to operands; to record the loca- 
tion of the operation result for later 
reference in generation; etc. 


When the expression-operator generator 
has completed its task, it returns control 
to the arithmetic expression generator, 
which marks the tree node "computed" 
(primitive). 


The subscript connector (:), open func- 
tion argument connector (,,), recursive 
operator(!), and base/index connector (?) 
require no generation, and the tree node at 
which one of these occurs in simply marked 
"computed". The back-link is inspected 
next. If it is null (zero), generation is 
complete and return is made to the module 
that called the arithmetic expression 
generator. If the back-link is not null, 
it is followed to the next higher level 
operator, from which point generation pro- 
ceeds as above. 


Expression Storage 


Whenever a noncommon operation is com- 
plete, whenever a noncommon operand is 
loaded into a register without the inten- 
tion of immediately operating upon it, or 
whenever a quantity is stored in temporary 
storage, a record of the transaction is 
made. If the operand is being loaded into 
a register, the corresponding register 
number is recorded at the appropriate node 
of the expression tree. If the operand is 
being stored, the temporary storage assign- 
ment is recorded in the tree. Note, howev- 
er, that such information concerning 
variables and constants is not recorded in 
the tree. Thus, the expression tree con- 
tains the current location of any computed 
noncommon partial result. 


Common-Expression Storage 


Whenever a transaction such as the above 
involves a common expression, the transac- 
tion record is made in the Name Table 
(Figure 25). Each common expression has a 
name (number) which is its identification. 
Associated with each distinct common ex- 
pression is a Name Table entry which is 
used to record the location of the common 
expression in the same way that the expres- 
Sion tree is used to record the location of 
noncommon expressions. 





Displacement 





0 16 28 31 
0 NLNK U TYPE 
Legend 
U unassigned LU last use 
co Operator is a colon REG register (if R = 1) 
STEP loop increment M in memory 
G globally assigned MS memory sign 
C computed R in a register 
S secondary temp assigned RS register sign 
NLNK link to loop Table entry of last use of recursive increment, if 


applicable; otherwise, zero. 


TYPE EF Type Code 


Figure 25. Name Table 


Register Storage 


Two tables are used to keep a running 
record of the contents of the arithmetic 
registers. The MRM table (Figure 26) con- 
tains one entry for each of general regis- 
ters 1 through 15 (since general register 0 
is used simply as a transient register and 
its contents are never retained, this reg- 
ister is not represented in the MRM table). 
The MRMFR table (Figure 27) contains one 
entry for each of the four floating-point 
registers. MRM is the symbol applied gen- 
erically to the register tables, and often, 
when no confusion can result, MRM is used 
interchangeably for MRM and MRMFR. 


The two tables have generally similar 
structures. The first word of each entry 
contains two status indicators, the first 
of which indicates whether the register is 
available for selection. The second indi- 
cator records whether or not the general 


register is globally assigned over the 
scope of a DO loop, or whether or not a 
floating-point register (0 or 4) is linked 
as a complex quantity pair to the next 
higher register. This first word applies 
to the register as a whole. 

0 78 . 1516 3] 
WY) 











MI 
Word 2 Yj: 
: LA 
os 
Initial 
i BY, M Entry 
Word 0 U U Yy R MRMDIS 
Yi S$ Uy} M Displacement 
| Z Li - { 
| | 
| | First 
et ee A | 
i ee ee a Synonym 
| Entry 
| | 
| | 
PS | 
l | 
| ! Second 
|-—— — —--- — — — — — — — l Synonym 
| Entry. 
| | | 
| | 
Sa SSS SSS ea a | 
| | | 
| : Third. : 
a a a oe ee i ae Synonym 
, , Entry 
| | : 
os ae ee = 
Legend 
MSL 0 = Selectable 
1 = Nonselectable 
MGBL 0 = Nonglobal 
1 = Global 
MRM2 ID 
MRMTYP EF Type Code 
BUSY 0 = Inactive 
1 = Active 
MRM6 0 = True Sign 
1 = Negated 


Word 2 occurs once for each general regis- 
ter. Words 0 and 1 occur four times for 
each general register. 


Figure 26. MRM Table 
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MSLF 0 = Selectable 
1 = Nonselectable 
MRMFL 0 = Not Linked 
1 = Linked 
MRMF2 ID 
MRMTYP EF Type Code 
BUSYF 0 = Inactive 
1 = Active 
MRMF'6 0 = True Sign 
1 = Negated 


Word 2 occurs once for each floating regis- 
ter. Words 0 and 1 occur four times for 
each floating register. 


Figure 27. MRMFR Table 


Next, for each entry, is a set of four 
pairs of words; the first pair is called 
the initial entry and the rest, synonym 
entries. The initial entry may or may not 
be active; but, whenever there is at least 
one active synonym, the initial entry is 
active. Whenever a quantity is loaded into 
and assigned to a register, or computed in 
and assigned to a register, a record is 


134 


made in the initial entry of the appropri- 


ate MRM table entry to indicate the pres- 
ence of the assigned quantity in the corre- 
sponding register. Synonym entries are 
sometimes made for quantities which appear 
on the left-hand side of arithmetic state- 
ments. Consider, for example, the sequence 
of statement: 


1 A=B8B 
2 C= A 
3 D=B 


The quantity B is loaded into some reg- 
ister, and an assignment for B is recorded 
in the initial entry of the corresponding 
MRM table entry. The store into A causes 
the insertion of A into the first synonym 
entry. In statement 2, A is found to be in 
a register, so no load is generated, simply 
a store into C which is then recorded in 
the second synonym entry. In statement 3, 
B is found to be in a register so a store 
into D is generated, and D is recorded in 
the third synonym entry. 


When an attempt is made to record a 
fourth synonym, the first (oldest) synonym 
entry is erased, the remaining two are 
moved up one slot, and the new synonym is 
recorded in the third synonym position. 
The initial entry is never changed by this 
procedure. 


Whenever a quantity which has a current 
MRM table entry changes value, the corre- 
sponding position of the appropriate entry 
is vacated. If an initial entry thus 
becomes empty, the first active synonym is 
installed as the initial entry; or if there 
are no active synonyms, the MRM entry 
becomes empty. 


General Register Selection 


The general registers are used to con- 
tain virtual storage addresses and to per- 
form address arithmetic and integer, logi- 
cal, and relational computations. General 
registers 1 through 11 and 14 and 15 are 
treated as equivalent for purposes of reg- 
ister selection, with the single exception 
that if there is no other basis upon which 
to make a selection, the lowest numbered 
available register is selected arbitrarily. 
General register 13 is used to cover the 
first page of the object program PSECT 
(sometimes called the adcon page), and gen- 
eral register 12 is used to cover local 
temporary storage. Both of these registers 
are made unavailable for any other use 
simply by raising their MSL and MGBL flags 
in the corresponding MRM Table entries. 
General register 0 may be used in the nor- 
mal way aS a member of the 0/1 register 
pair, but register 0 itself may never be 
selected or assigned. It is used only in 
extremely local context. 


tok te 


In certain situations use of registers 
1, 14, and 15 is restricted. For example, 
when at the top of a DO loop an address 
constant must be loaded into a register and 
assigned globally to that register over the 
scope of the loop, none of these three 
registers is selected because of its spe- 
cially required use in the subroutine lLink- 
ages. Otherwise, the register selection 
routines make their selection on the basis 
of the register contents. 


The general criteria for selection of 
registers involve the relative cost of hav- 
ing to reload the quantity which is in the 
registers at the time of selection. Clear- 
ly, if a register is empty, it is a prime 
choice for selection. In turn a register 
which contains a constant whose absolute 
value is less than 4096 and which therefore 
may be reconstructed with a relatively fast 
LA (load address) or SR (subtract register) 
instruction is likewise a good selection. 
On the other hand, registers which contain 
partial expression results (operators) are 
the poorest choices since they must be 
stored in temporary storage and later 
fetched from there. A register which con- 
tains an unstored common expression is a 
somewhat better choice, since while the 
partial result is known to be last used in 
the current expression, the common expres- 
Sion has more than one use and may there- 
fore have to be stored eventually, so that 
not storing it now may only be postponing 
the inevitable. 


The general register selection routines 
apply these criteria by determining the 
contents of each register by an examination 
of its corresponding MRM table entry. A 
weight is assigned to each register accord- 
ing to those criteria, and the register 
with the highest weight is selected. 


Storage Reference Processing 


Cover is obtained for storage references 
(simple and subscripted variables, con- 
stants, and temporaries) and most branches 
by one of two subroutines: MEMAC and 
COVER. MEMAC is a more general routine 
which is used to obtain cover for a 
reference to any given expression tree 
quantity. COVER is used in situations 
where it is known that all that is needed 
for cover is an adcon, and the symbol table 
pointer for the adcon is at hand. 


Consider first the expression AtB in 
which neither A nor B is in a register and 
which is represented in expression tree 
form as: 


+ 
The plus generator first selects a 
floating-point register, say 4, in which to 
perform the addition. It then requests 
from MEMAC cover for A. The latter routine 
recognizes that the operand is a variable. 
It obtains the adcon pointer from the vari- 
able item and searches the MRM table for a 
register containing that adcon. If one is 
found, the values X2 = 0, B2, and D2 are 
returned, where B2 is the register and D2 
is the displacement indicated in the vari- 
able item. If the adcon is not in a regis- 
ter, MEMAC selects one and loads the adcon 


into it. It then returns X2, B2, and D2 as 
above. 


The plus generator will now generate the 
instruction 


LE 4, D2(0,B2) 


MEMAC is then entered to obtain cover for 
B. In similar fashion it returns new 
(although possibly the same) values of B2 
and D2, and the plus generator produces 


AE 4,D2(0,B2) 


Consider next the expression X + Y(I) 
where X and Y¥ are of type REAL*4, Y is an 
array, and I is neither a loop index vari- 
able nor removable from a DO loop. The ex- 
pression is represented in the expression 
tree as: 


+ 


f 

F% 
i % 
A» 


where the effective displacement, D2, is 
given in the variable item Y, and the rest 
of the storage assignment and subscript 
offset has been subsumed in the item indi- 
cated by “"adcon”. It should also be 
pointed out that if generation is now tak- 
ing place for the plus operator, generation 
of all lower level operations has taken 
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place -- in particular, the formation of 
the product 4#I. - 


MEMAC is first asked for cover for X 
which -- as before ~- results in generation 
of, perhaps, 


LE 2,D2(0,B2) 


where D2 plus the contents of B2 is the 
address of X. 


Then MEMAC is asked for cover for the 
right operand of the plus, the subscript 
connector (: operator). MEMAC looks 
beneath the colon and finds a base/index 
connector (? operator). Each of the 
operands of the ? operator is now indivi- 
dually obtained in general registers, eith- 
er by locating the quantity in a register, 
or by selecting a register and loading the 
quantity as above. D2 is obtained from the 
variable item Y, and the registers contain- 
ing the left and right operands of the ? 
operator are returned aS X2 and B2, respec- 
tively. The plus generator now completes 
the addition by generating 


AE 2, D2(X2,B2) 


Subscripted variables containing only 
expressions that are removed from and com- 
puted outside a DO loop have the form 


Variable Expression 


where the right-hand operand of the colon 
operator is the removed expression. In 
this case, the expression is not introduced 
by a ? operator, and MEMAC simply ensures 
that the expression is in a register, as 
above, and returns D2 from the variable 
item, X2 = 0, and B2 as the register con- 
taining the removed expression. 


DO Loop Processing 


The generation associated with DO loop 
control, removed expressions, and recursive 
expressions is governed by the begin loop 
1(BL1), begin loop 2 (BL2), begin loop 3 
(BL3), and end loop PF items. The pro- 
cesses performed and the code generated at 
BL1 and BL2 are “out of the ioop"; that is, 
they are considered as loop initialization 
and are performed only once prior to entry 
to a loop, not each time through the loop. 
BL3 and end loop mark the scope of the 
loop, and any code generated or processing 
done therein is considered to be within the 
loop. 
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The BL1 entry contains a list of as many 
as eight quantities (adcons or common ex- 
pressions) that are to be globally assigned 
to general registers across the upcoming 
loop. This list is scanned and transcribed 
to the current level of the loop push-down 
table, or loop table (see Figure 28). Dur- 
ing this process, for each entry which is a 
common expression, the G (globally 
assigned) flag of the corresponding name 
table entry is set. 


After the global assignment list has 
been transcribed to the loop table, a 
second list is scanned. This is a linked 
list of removed, nonrecursive common ex- 
pressions inthe PF. Each of these expres- 
sions is presented to the arithmetic ex- 
pression generator for processing. This 
generation completes the processing at BL1. 


The processing at BL2 generates the com- 
putations associated with recursive expres- 
sions, assures that all quantities which 
are to be globally assigned in the loop are 
now in registers and globally assigned, and 
clears register storage in all registers 
which contain quantities not to be globally 
assigned. If any such quantity is not also 
in storage (not a variable, constant, sub- 
scripted variable, or a previously stored 
common expression), temporary storage is 
obtained, and the quantity is stored. 


Recursive expressions are those whose 
highest level operator is the recursive 
operator (!). A recursive expression is a 
constituent of, or perhaps all of, an 
effective relative address. The recursive 
operator has been introduced in a subscript 
expression in place of any + operator whose 
left-hand operand is a function of a loop 
induction variable. At the same time, the 
occurrence of the induction variable has 
been replaced by the induction variable 
increment size specified in the correspond- 
ing DO statement. The recursive expression 
is to be initialized outside the loop and 
incremented after each pass through the 
loop. The recursive operator has the pro- 
perty that its right-hand operand is the 
initial value of the corresponding recur- 
Sive expression, and its left-hand operand 
is the increment to be applied to the ex- 
pression at the end of the loop. 


A loop table entry is made for each 
recursive processed at BL2. The entry con- 
tains the name of the recursive (the recur- 
Sive is always a common expression) and an 
expression-tree-like item representing the 
increment to the recursive entry. This 
information is retrieved from the loop 
table at the loop end in order to increment 
the appropriate recursive expression. 
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Figure 28. 


Legend for Figure 28 


TEMP1 Byte number of lowest temporary 
assigned at next outer DO Loop. 

LLINK Link to Loop Table entry for next 
outer DO Loop. 

LRCSV Number of recursive expression to 
be incremented at this end DO. 

LLABL Symbol Table pointer to compiler- 


created label marking beginning of 
DO scope. Not applicable to level 
zero loop. 


FLAGS 


Mne- 
monic 


Mask 
value Meaning 

Loop variable material- 
ized; there is no test 
expression. Otherwise, 
loop variable not materi- 
alized; last recursive 
expression is followed by 
a test expression. 

Loop variable is to be 
materialized (calculated) 
on exit from loop. 

BXLE on recursive. Loop 
controlled at loop bottom 
by BXLE instruction. 

Not used. 

Loop controlled at loop 
bottom by BCTR 
instruction. 

Registers 14 and 15 may 
be globally assigned over 
loop. Loop bottom 
instruction will. be BXLE 
1,14,d (Bi). 

Registers 14 and 15 must 
be put in temporary 
Storage before loop is 
entered, and must be 
‘restored at loop bottom 
before the BXLE 1 714,d 
(B1) is generated.” 

Not used. 


LMTRZ X‘0i' 


MTZEX X*02* 


RCSV X"O4* 


X*08° 
BTR Xx*10° 


GBL Xx*20 


TEMP X*40° 


xX"'80° 


LIVA Loop variable covering-Adcon 


pointer. 


LIVD Loop variable D2 field. 
_LIvs Loop variable Symbol Table pointer. 
LINCA Variable or constant increment 
covering-Adcon pointer. 
LINCD Variable or constant increment D2 
field. 
LINCS Variable or constant increment Sym- 


bol Table pointer. 


LTESTA Variable or constant upper limit 
covering-Adcon pointer. 


LTESTD Variable or constant upper limit D2 
field. 


LTESTS Variable or constant upper limit 
Symbol Table pointer. 


LPGRI Up to 8 globally assigned 


quantities. 
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LPGR8 
LPGRi = 8000 marks end of list. 


LPGRi<7000 indicates Adcon Symbol 
Table pointer. 


7000<LPGRi<8000 indicates common 
expression whose name is 
LPGRi-7000. 


LRNAME Common expression name of recursive 


expression. 
LID ID of increment or test expression: 
1 = Operator 
2 = Common Expression 
5 = Variable 
6 = Constant 

LTYPE Type of increment or test 

expression: 
3 = Integer#2 
4 = Integer*#4 

LSYM Symbol Table pointer of variable or 
constant increment. 

LCON Symbol Table pointer of Adcon cov- 
ering constant or variable incre- 
ment or temporary assigned to 
increment or test expression. 

LDIS D2 field for variable, constant, or 
temporary reference. 

S Tree sign of increment or test ex- 
pression operator at creation of 
expression. 

LNAME Name of increment or test expres- 
Sion if a common expression. 

L L = 1if last use of increment or 


test expression was encountered 
prior to Loop end; otherwise, L 
= 0. 


When the recursive processing is com- 
plete, the BL2 PF entry is examined to 
determine whether materialization of the 
loop induction variable is required. Such 
Materialization implies that the value of 
the induction variable will be maintained 


in the storage location assigned to it. If 


materialization is indicated, instructions 
are generated to load the initial value of 
the induction variable into a general reg- 
ister and store it into its assigned loca- 
tion. Symbol Table pointers to the induc- 
tion variable, increment quality, and upper 
limit quantity are now recorded in the 
appropriate loop table fields. 


If materialization is not indicated, the 


arithmetic expression generator is called 
to generate the "test expression.” 
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It is assumed that whichever recursive 
expression has been processed last will 
also be processed last at the end of the 
loop (incremented there), and that this 
recursive will be tested against the test 
expression to determine whether the loop 
has been traversed the requisite number of 
times. The information identifying the 
test expression is added to the loop table 
following the entry for the last recursive 
expression, in just the same manner. 


Next, any quantity to be globally 
assigned over this loop and not already so 
assigned is processed. If it is already in 
one of general registers 2 through 12, the 
corresponding MRM table entry is marked 
“globally assigned". If it is in some 
other general register, or not in a regis- 
ter at ali, then one of the registers 2 
through 12 is selected and made available, 
and the quantity is loaded into the 
selected register. Finally, all the 
floating-point registers and any general 
registers that are not now globally 
assigned are stored and cleared if their 
contents are not already in storage, or are 
cleared, otherwise. This completes the 
processing at BL2. 


At BL3, four tasks are performed. 
First, the compiler-created statement 
label, marking the first instruction inside 
the loop, is placed in the code file and is 
identified by an entry in the loop table. 
Second, the arithmetic expression generator 
processes any expressions (dependent upon 
the induction variable) which may have been 
removed to BL3. Third, any temporary 
storage locations assigned at this loop top 
or at the next higher level are protected 
from reuse within the loop. Finally, the 
loop table is “pushed down" one level, 
ready to record information about any inner 
loop that may be encountered. 


When an end-loop item is encountered in 
the PF, the loop table is “popped up” one 
level so that the information regarding the 
loop now ending is once again in evidence. 
Instructions are generated to increment 
each recursive expression listed in the 
loop table entry by the amount specified 
therin. Next, the end-of-loop test is 
generated. If materialization was required 
for this loop, instructions are generated 
to increment and test the induction vari- 
able and to branch conditionally (BNL) to 
the loop top. If materialization was not 
required, the last recursive incremented is 
now tested against the test expression, and 
a conditional branch (BNE) to the loop top 
is generated. 


Next, the global assignment iist is 
scanned, and for each entry the global 
assignment flag of its corresponding MRM 
table entry is cleared. Finally, all tem- 


poraries assigned to tne next outer DO 
level and released-within the loop now end- 
ing are made available for reassignment. 


ROUTINE DESCRIPTIONS 


Phase 4 routines bear mnemonic titles as 
well as coded labels. The 5-character 
coded labels begin with the letters CEK; 
the fourth and fifth letters identify a 
specific routine. Most routines have onlv 
one entry point; for those that have mul- 
tiple entries, both the coded labels and 
the mnemonics are given for the alternate 
entries. Any mnemonic name beginning with 
the letters TEV refers to an Exec routine 
or entry point, rather than to a Phase 4 
routine. The corresponding coded label is 
given in parentheses immediately following 
the mnemonic. 


There are no hardware configuration 
requirements for any Phase 4 routines. All 
these routines are reentrant, nonresident, 
nonprivileged, and closed. All except 
Phase 4 Master Control (CEKNX) use the 
restricted linkage conventions. Return 
codes and output parameters, if any, are 
noted in the routine descriptions that fol- 
low Table 24. 


The relationships of routines constitut- 
ing this pnase are shown in the following 
nesting chart (Figure 29) and decision 
table (Table 24). The relationships are 
shown in terms of levels; a called routine 
is considered to be one level lower than 
the calling routine. Phase 4 Master Con- 
trol is considered to be level 1. 
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Table 24. Phase 4 Decision fable (Part 1 of 12) 


Routine:--~---------Phase 4-—------~-~---~—---~---~-—-~—---+~~+-+---—---+---+-+- Lével; 1------------ 
ee Tossa ee eee ee a fap arrears Sa a a a ae 1 
| | | Routines | { 
jRoutine| Usage | Called | Calling Conditions { 
------ —|-----+--------~-----------}--------}------------------+----------------------—4 

}PHASG |Phase 4 master controller |ENT |To generate main program, subprogram, or | 
| | { | entry prologue. | 
| | | LABEL | To process Statement Label definition. | 
| | | EQUAT |To generate for arithmetic statement. | 
| | | GOTO [To generate unconditional GO TO. | 
| | | AGO |To generate assigned GO TO. | 
| i | CALL jTo generate CALL. | 
| | | RTRN {To generate epilogue. | 
| | | BL1 |To generate removed expressions. | 
| | {BL2 |To generate recursives and make global | 
| | | | assignments. | 
| | |BL3 |fTo generate DO loop top. | 
| | | ENDLP {To generate for end of DO loop. | 
| | {OLIST {To generate for I/O list. | 
| | |NDLIST |To generate for end of I/O list. | 
| | | RD {To generate for I/O initialization. | 
| | | INSOT j|To make code file entry. | 
| | {CGO {To generate computed GO TO. | 
| | | ASSGN |To generate ASSIGN. | 
| | {AIF |To generate arithmetic IF. | 
| | | LIF }To generate logical IF. | 
| | {STOP |To generate STOP and PAUSE statements. | 
| | |TEVRDM |To issue diagnostic message. of 
L I is ww pa aS os Be a eta lg ie a a I he 4 
Routine:-—----—--~----Phase 4~-~--—--—--~~—~-—~—~—-—~—-——----+--~+--—~—-——~~—-—---—----- Level: 2------------ 
So ee ee ee Re ee ne ee ee re a eee ed 

| ENT {Generate main program, | INSOT {To make code file entry. -| 
| | subprogram, or entry | LBL {To generate for branch to label. | 
| | prologue. | LINK {To generate load of V/R Adcon pair. | 
| | | SELSR {To select single general register. | 
| | | ASAR {To assign a general register. | 
{ | | FNDAR |To search general register table. | 
| | | TEVI4 {To file an INTEGER*4 constant. | 
| | {TEVFL4 |To file an address constant. | 
pom} = nnn {-----—- {~-----~----------~------------------------- { 
|LABEL |Process Statement Label | INSOT |To make code file entry. ’ | 
| | definition. | FLUSH {To reset and/or transfer register table | 
{ | [ { entry. | 
}------ ~--~---------------------- 4 -------- 4} -- === === 2-4 
|EQUAT |Generate for arithmetic | AGEN jTo generate expression. i 
| | statement. | SELSR {To select single general register. | 
| | | SELFR {To select single floating register. | 
| | | MEMAC |To get cover for storage reference. | 
| | | EDIT |To set comment item for code file. | 
| | | ASAR {To assign a general register. | 
| | | ASFR |To assign a floating register. | 
| | | ASARS {To assign a general register synonym. | 
| | | ASFRS jTo assign a floating register synonym. | 
| | { OPND |To process operand. | 
| | | INSOT |To make code file entry. | 
| | | KEY1 |To determine status of single operand. | 
| | | TEVI2 |To file an INTEGER*2 constant. | 
| | {| TEVI4 {To file an INTEGER*4 constant. | 
| | | TEVR4 {To file a REAL*4 constant. | 
| | | TEVR8 |To file a REAL*8 constant. | 
| | | TEVC8 {To file a COMPLEX*8 constant. { 
| | {TEVC16 |To file a COMPLEX*16 constant. | 
bce Nr se ea Me haat ci a ca a ca esac anaes ee J 
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Table 24. Phase 4 DeciSion Table (Part 2 of 12) 


Routine :------------Phase 4-~~--——~~~~~~--~~~~----~~-~-----+~-~---~~-~--~- Levels 2-(Cont'd)-—-- 
enlaces a ep eg re eS ee Le BER ne i re er Se 1 
| | | Routines | | 
|Routine| Usage |Called | Calling Conditions j 
~------}-------------------------- $--------+------------------+------------------------| 
| GOTO {Generate unconditional |] INSOT {To make code file entry. | 
| { GO TO. |L8L |To generate for branch to label. | 
t------- }-------------------------- +-------- $-----------------------~------------------- { 
| AGO |Generate assigned GO TO. |SELSR |To select single general register. | 
| | er {COVER {To load specified Adcon into any general | 
| | { register. | 
| | | INSOT {To make code file entry. | 
f------ ~}~-------------------------}-—-——-- $--—--~~------------------------—----------- { 
| CGO {Generate computed GO TO. |INSOT |To make code file entry. | 
| | | FNDAR {To search general register table. | 
| | | SELSR {To select single general register. | 
| | | MEMAC |To get cover for storage reference. | 
| | | AGEN |To generate expression. | 
| | | SADDR {To get local branch cover. | 
| | |TEVFL4 |To file an address constant. { 
| | {TEVFLS |To file a parameter list entry. | 
| { |TEVCRL |To create a label for the code file. | 
| | {TEVFLL |To make Symbol Table entry for created | 
| { i | label. | 
}------ —------------~--—----—---- +-------- 4--—----------------------—---------------- 1 
[ASSIGN {Generate ASSIGN. | INSOT {To make code file entry. | 
| | | MEMAC |To get cover of storage reference. | 
| | |TEVFL&4 |To file an address constant. | 
}----~- -}--------------------------4--------4f ------- —-------- === —4 
| AIF {Generate arithmetic IF. | AGEN {Io generate expression. | 
| | | FNDAR {To search general register table. | 
j | | FNDFR {To search floating register table. | 
| | | MEMAC {To get cover for storage reference. 
| j | SELSR |To select single general register. | 
| | | SELFR {To select single floating register. | 
| | | ASFR |To assign a floating register. | 
| | | ASAR |To assign a general register. | 
| | | INSOT {To make code file entry. | 
| | | OPND {To process operand. | 
| | | LBL {To generate for branch to label. | 
}~~-—- —f ---- === $= $= =f fn enna nnn nf 
| LIF {Generate for logical IF. |AGEN |To generate expression. | 
| | {OPND |To process operand. | 
| | | FNDAR {To search general register table. | 
| | | FNDFR {To search floating register table. | 
| | | MEMAC |To get cover for storage reference. | 
| | | INSOT |To make code file entry. | 
| | | ASAR {To assign a general register. | 
| | { LBL |To generate for branch to label. | 
|~------}----------------—--------}---—--- }------------------------------------------- { 
| CALL |Generate CALL. | AGEN {To generate expression. | 
| | | INSOT {To make code file entry. | 
| | | SADDR |To get local branch cover. | 
| | | LINK {To generate load of V/R Adcon pair. | 
| | {TEVFL4 {To file an address constant. | 
| { {TEVFL5 |To file a parameter list entry. | 
| | |TEVCRL {To create a label for the code file. | 
| { |TEVFLL |To make Symbol Table entry for created | 
| { | | label. | 
}--~----4 ------------ ---- === == = ff on nnn nnn nnn { 
| RTRN {Generate epilogue. | INSOT |To make code file entry. | 
| | | FNDAR |To search general register table. | 
| | | FNDFR {To search floating register table. | 
| | |TEVFL4 |To file an address constant. | 
Lett es Bs aie le rh Slee eh ee Ee se J 
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Table 24 
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ites, 


- Phase 4 Decision Table (Part 3 of 12) 


Routin e:--—--——~—-—----- Phase 4-~~-—-—--—---~——-—~~~~-—~--—~-—-—-——-——--~---—----~----- Level: 2-—(Cont‘'d)---— 
re ic ec ala ig aia aaa ata eae Sa ee eT ae 1 
| | Routines | | 
|Routine| Usage Called | Calling Conditions | 
~-----—}-----=-------------------- $---—---}------------------+------------------------4 

| BL1 |Generate removed | AGEN |To generate expression. | 
{ | expressions. | iNSoT {To make code file entry. | 
| | J OPND |To process operand. | 
}------ —|--------------------------}-------- $-------------------------------------- ----- 
| BL2 |Generate recursives and | KEY1 |To determine status of single operand. | 
| | make global | OPND |To process operand. | 
| | assignments. | RSLT | To protect operand. | 
| | | COVER {To load specified Adcon into any general | 
| | | | register. | 
| | | FNDAR | To search general register table. | 
| | | FLUSH |To reset and/or transfer register table | 
| | | entry. | 
{ | | AGEN {To generate expression. | 
| | | MEMAC |To get cover for storage reference. | 
| | | INSOT |To make code file entry. | 
| | | SELSR {To select single general register. | 
| | | ASAR {To assign a general register. | 
| | | FNDWS {To get next available temporary storage. | 
| | {|PH4MES |To make table overflow error exit. | 
}-------~--------------------------------- 4~----------------------~-----------------—- 4 
| BL3 {Generate DO loop top. | AGEN {To generate expression. | 
| | | INSOT {To make code file entry. | 
| | | OPND {To process operand. | 
| | | FNDWS |To get next available temporary storage. | 
| | | COVER [To load specified Adcon into any general | 
| | | | register. | 
| | |PH&MES |To make table overflow error exit. | 
[------- 4~-~----------------------- t-------- 4-------------------------------------=----- { 
|ENDLP {Generate for end of DO | SELSR |To select single general register. | 
| | loop. | MEMAC |To get cover for storage reference. | 
| | | INSOT |To make code file entry. | 
| { | FNDAR |To search general register table. | 
| { | OPND. |To process operand. | 
| | | COVER |To load specified Adcon into any general | 
| | | {| register. | 
| | | ASAR {To assign a general register. | 
| | | KEY1 jTo determine status of single operand. i 
| | | EDIT {To set comment item for code file. i 
| | | LBL j|To generate for branch to label. | 
i | | RLSWS {To. release temporary storage. | 
| | |PH4MER |To make machine/compiler error exit. | 
f------ -+-------------------------- +-------- $----------------------------------------- 4 
| RD {Generate for I/0 | INSOT |To make code file entry. | 
| | initialization. | SELSR |To select single general register. | 
| { | SELFR |To select single floating register. | 
| { | LINK {To generate load of V/R Adcon pair. | 
{ { |TEVFL4 |To file an address constant. | 
| | {|TEVFLS5 {|To file a parameter list entry. | 
| { | TEVVR {To file a V/R address constant pair. | 
f~---—- ~------------------------- === --- ==} === === $5 =n 
{OLIST |Generate for I/O list. | LINK |To generate load of V/R Adcon pair. | 
|: | | SELSR |To select single general register. | 
| | | LNSOT {To make code, file entry. | 
| | | AGEN |To generate expression. | 
| | | MEMAC |To get cover for storage reference. | 
| | | OPND |To process operand. | 
| | | SELFR {To select single floating register. { 
| | |TEVFL4 {To file an address constant. | 
| | {|TEVFL5 |To file a parameter list entry. | 
j | STEVE Ve file a V/R address constant pair. | 
26s. I a la a al acetal a eae a ae a re eee a ee ea eres J 
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Table 24. 


Phase 4 Decision Table (Part 4 of 12) 


Routine:-—--——---—-—--— -Phase 4\—-~---—-—-—-—-~—-—-—-—~~~+-—--~—-—---— ~~ -- -- Level: 2—(Cont'd)--- 
a CE! a a an a 
| | Jroutines| 

jRoutine| Usage | Called | Calling Conditions 

a cs eh ha oe eee ate a 4—--—__— fa nn +: 
|NDLST [Generate for end of I/0 | LINK {To generate load of V/R Adcon pair. 

| | list. | | 

t------- $-------------------------- ¢-------- $----------~-------------------------------- 4 
| STOP |Generate for STOP and | LNSOT |To make code file entry. | 
| | PAUSE statements. | SELSR |To select single general register. 

| | | SELFR |To select single floating register. 

j | |TEVFL4 |To file an address constant. | 
| | {|TEVFL5 [To file a parameter list entry. | 
| | | TEVVR {To file a V/R address constant pair. 
a i a a rc arte i he ie eer J 
Rout ine:————-—~—--—---—— Phase 4—--~~--~-—-~—--—-—-—-—-———-—-—-—-- —--+-~----- +--+ ---- Level: 3------------ 
eg eae ie es Re rey ree oe ee ge ee ee ee ee ee es ee ee 7 
| LINK {Generate load of V/R |SELFR {To select single floating register. | 
| {| Adcon pair. | SELSR {To select single general register. | 
i | | INSOT |To make code file entry. | 
| | |TEVFL4 |To file an address constant. | 
| | | TEVVR |To file a V/R address constant pair. . | 
t----- ~----~------------------~-} +--+} --—---- =~ +--+ -- == 
| AGEN |Generate expression. | TRBLD {To convert Polish expression to tree form. | 
| | | WGHT |To determine order of computation. { 
| | |CSX | To count common expression uses. | 
| | | IPLUS {To generate integer addition. | 
| { | LADDR |To generate addition with LOAD ADDRESS. | 
| { | RPLUS jTO generate real addition. | 
| | | CPLUS {To generate complex addition or | 
| | | | subtraction. | 
| | | IMPLY {To generate integer multiplication. | 
| | | RMUL |To generate real multiplication. | 
| | | CMUL | To generate complex multiplication. | 
| | | IDVDE {To generate integer division. | 
| | | RDIV | To generate real division. | 
| { |CDIV |To generate complex division. | 
| | | RLTNL | To generate relational operations. | 
| | | ANDOR |To generate logical AND or OR. | 
{ | | MAX {To generate for MAX operator. | 
i | | COMMA |To get function argument in storage with | 
| | | | correct sign. l 
| | | FUNC {To generate function call. { 
| | | DCOM j|To select open function module. | 
}------ mann === $= $$ n-nonane 
JASARS {Assign a general register |None | | 
bs | Synonym. | | | 
~----- ma nan a nna nnn nn nn nn nnn nnn nnn 
|ASFRS |Assign a floating register |None | | 
| | Synonym. | | | 
a as car a as Sa os ea et Be et ee ee waa 
Routine:———---------Phase 4-~------—-—-~—-~-~--—-—--—--—-~--—~+~—--—-------—----- Level: 4------------ 
ea Ts a ae eae Rage eee Te ee Ee ee 
[TRBLD |Convert Polish expression |None | | 
| | to tree form. | | | 
| ~------ --------- = - === - === 4 a a nn nnn nnn nnn nnn nnn nnn 
| WGHT | Determine order of | None | | 
| | computation. | | 
~------}-------------------------- $--------}-------------------------------------------4 
|CSx {Count common expression | None | | 
| j uses. | | | 
eas as a tates fh Se BI a ler ee Se J 
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Table 24. Phase 4 Decision Table (Part 5 of 12) 


Rout ine:——--—-----~--Phase 4-—-—--—-—~-----------——-—~~-+-~—+—----- ++ + Level: 4-(Cont'd)--- 
Sra a aa eo ee a a Poet ee. DS ee SS Se ne ee ea ee 1 

| koutines | | 
|Routine| Usage {j Called | Calling Conditions | 
}-—---- }-------------------------- $-------- +------------------------------------------- { 
|IPLUS |Generate integer addition. | KEY |To determine status of two operands. | 
| | | SLONE {To optimize storage-register | 
| | | { operand-situation. | 
| { | SELOP {To optimize storage-storage { 
| | | {| operand-situation. | 
! | | SLPOS |To optimize storage-register | 
| | | | operand-situation. | 
| | |SELSR |To select single general register. | 
| | | ASAR |To assign a general register. | 
| | | MEMAC |To get cover for storage reference. | 
| | | EDIT |To set comment item for code file. | 
| | | OPND |To process operand. | 
| | {| RSLT | To protect operand. | 
| | | INSOT [To make code file entry. | 
}------- }-------------------------- }-~------ 4--—----------------------------—--------- { 
|LADDR |Generate addition with | KEY1 |To determine status of single operand. | 
| | LOAD ADDRESS. | RSLT |To protect operand. | 
| | | OPND |To process operand. | 
| | {| ASAR {To assign a general register. | 
| | | INSOT |To make code file entry. | 
| | | SELSR {To select single general register. | 
| | | MEMAC |To get cover for storage reference. | 
| | |EDIT |To set comment item for code file. | 
}-~-----}------------------—------- $-—------ 4-----------------------------------------—- 1 
|RPLUS |Generate real addition. | KEY |To determine status of two operands. | 
| | | SELOP {To optimize storage-storage | 
| | | | operand-situation. | 
j | | OPND |To process operand. | 
| | | INSOT |To make code file entry. : | 
| | {SLPOS {To optimize register-register | 
| | | | operand-situation. | 
| | | SELFR |To select single floating register. | 
| | | MEMAC |To get cover for storage reference. | 
| | {| RSLT {To protect operand. | 
{ | | ASFR {To assign a floating register. | 
| j |EDIT [To set comment item for code file. | 
}------ ~|-------------------------- $---—--- +------------------------------------------- 4 
|CPLUS |Generate compiex | KEY |To determine status of two operands. | 
| ] addition or subtraction. |ASFR |To assign a floating register. | 
| | | OPND {To process operand. | 
| | | LNSOT {To make code file entry. | 
| | | SELFR |To select single floating register. | 
| | | MEMAC |To get cover for storage reference. | 
| Le | RSLT |To protect operand. | 
| | | SELOP |To optimize storage-storage | 
| { | | operand-situation. | 
| | |EDIT {To set comment item for code file. | 
| | {| SLPOS | To optimize register-register | 
| | | |  operand-situation. | 
| | | TEVR4 |To file a REAL*4 constant. | 
| | | TEVR8 |To file a REAL*8 constant. | 
| | | TEVcs8 | To file a COMPLEX*8 constant. | 
| | |TEVC16 |To file a COMPLEX*16 constant. | 
bowie as Dee Se eee Se ee ee a Dh tk See ee ee J 
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Table 24. Phase 4 Decision Table (Part 6 of 12) 

Routine: -——-—--—---—----Phase 4~~-~--—---~-~----~—-~-----—-—-----—--~——--+-—----- Level: 4-—(Cont'‘'d)--- 
ae aac ee To Ne es erg aay ee RE Pe Pe eR 1 
| | |] Routines | | 
jRoutinej| Usage | Called | Calling Conditions 
}-------4~------------------------- $-------- 4------------------------------------------- { 


| IMPLY |Generate integer | KEY |To determine status of two operands. | 
| {| multiplication. | SLONE |To optimize storage-register | 
| | | | operand-situation. | 
| | | SLPOS |To optimize register-register | 
| | | operand-situation. | 
| | | SELOP {To optimize storage-storage | 
| | | operand-situation. | 
| { | SELSR | To select single general register. | 
| | | EDIT |To set comment item for code file. | 
| | | INSOT |To make code file entry. | 
| | | OPND |To process operand. | 
| | | RSLT |To protect operand. | 
| | | MEMAC |To get cover for storage reference. | 
| | | ASAR {To assign a general register. | 
| | | FLUSH {To reset and/or transfer register table | 
| | | entry. | 
| | | SELDR {To select even/odd register pair. | 
}-------}--------------------------}-------- 4------------------------------------------- 4 
| RMUL |Generate real | KEY |To determine status of two operands. | 
| | multiplication. | MEMAC |To get cover for storage reference. | 
| | | OPND |To process operand. | 
| | | RSLT |To protect operand. | 
| | | EDIT | To set comment item for code file. | 
| | { SLPOS {To optimize register-register | 
| | | { operand-situation. | 
| | | SELOP |To optimize storage-storage { 
| { | operand-situation. | 
| | | SLONE |To optimize storage-register | 
| { | | operand-situation. | 
| { | INSOT {To make code file entry. | 
| | | SELFR {To select single floating register. | 
| | | ASFR |To assign a floating register. | 
}-------+-----------------~--------}-------- $----~------------—-------—---------------— { 
| CMUL |Generate complex | KEY |To determine status of two operands. 

| | multiplication. | SELFR {To select a floating register. 

| | | ASFR {To assign a floating register. 

| | | MEMAC |To get cover for storage reference. 

| j | EDIT jTo set comment item for code file. 

| | | INSOT {To make code file entry. 

| | | OPND {To process operand. 

| | | RSLT | To protect operand. 

| | | SELOP |To optimize storage-storage 

| | | { operand-situation. 

| | | SLPOS | To optimize register-register 

| | | | operand-situation. 

| { | SLONE {To optimize storage-register 

| | | | operand-situation. 

basa 

|IDVDE |Generate integer division. | KEY |To determine status of two operands. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
a= == 2 === nn 2 nna nnn anna nnn nnn ne 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| | SELOP |To optimize storage-storage 

[| | | | operand-situation. 

| { | MEMAC |To get cover for storage reference. 

| | | EDIT {To set comment item for code file. 

| | | SLONE |To optimize storage-register 

| | | | operand-situation. 

| | | SELGD |To determine whether to divide in place. 
| | | SELDR |To select even/odd register pair. 

| | | INSOT |To make code file entry. 

| | | OPND | To process operand. 

| | {| RSLT |To protect operand. 

bases aN ile eS Sales aoe en Rae ees th ee ea 


Bo 


Table 24. 


Phase 4 Decision Table (Part 7.of 12) . 


Routine:—-—-—-~-—-—------ Phase 4-~----—-—~--~~--—~-—~——~—~——~—-——-—--—+~—-----------~- Level: 4-—(Cont 'd)--- 
oe Sloat ee ee Te ee Se ee ee q 
| | jkoutines |. | 
{Routine| Usage | Called | Calling Conditions | 
SASS a Fee ee ee ee ee 
{IDVDE |Generate integer division. | ASAR |To assign a general register. 


| (Cont * d) | FLUSH |To reset and/or transfer register table 
i | | entry. 

| | |SELSR {To select single general register. 
}------- }-------------------------- $---—~~~~ $-------------+----------------------------- 
| RDIV {Generate real division. | KEY jTo determine status of two operands. 

| { se os | SELFR {To select single floating register. 

| | | ASFR |To assign a floating register. 

| | | MEMAC {To get cover for storage reference. 

| | | EDIT |To set comment item for code file. 

| { | OPND |To process operand. 

| | | RSLT |To protect operand. 

| | | INSOT |To make code file entry. 

| | | SELOP |To optimize storage-storage 

| | | | operand-situation. 

| i | SLONE |To optimize storage-register 

| | | | operand-situation. 
|-------}-------------------------- }-------- $------------------------------------------- 
|CDIV |Generate complex | KEY |To determine status of two operands. 

| | division. | ME MAC {To get cover for storage reference. 

| | | EDIT |To set comment item for code file. 

| | | OPND |To process operand. 

| | {| RSLT |To protect operand. 

| | | SELOP {To optimize storage-storage 

| | | operand-situation. 

| | | SLONE {To optimize storage-register 

| | {| operand-situation. 

| | |ASFR {To assign a floating register. 

| | | SELFR | To select single floating register. 

| | {| INSOT |To make code file entry. 
}-------}-------------------------- +-------- 4--~---------------------------------------- 
|COMMA |Get function argument in |FETCH |To fetch complement and/or store operand. 
| | memory with correct | MEMAC {To get cover for storage reference. 

| | sign. | SELSR |To select single general register. 

| | | INSOT |To make code file entry. 

| | | ASAR {To assign a general register. 

| { | OPND |To process operand. 

| | {| SELFR jTo select single floating register. 

| | | FNDWS {To get next available temporary storage. 
| { | ASFR |To assign a floating register. 

| | | TEVI4 {To file an INTEGER*4 constant. 

i | | TEVR4S |To file a REAL*4 constant. 

| | | TEVR8 {To file a REAL*8 constant. 

| | |TEVC8 |To file a COMPLEX*8 constant. 

| | |TEVC16 |To file a COMPLEX*16 constant. 
|-------}--------------------------}--------}------------------=------------------------ 
| FUNC {Generate function call. | SELSR {To select single general register. 

| | | SELFR {To select single floating register. 

I | | ASAR {To assign a general register. 

| | | INSOT | To make code file entry. 

| | | MEMAC jTo get cover for storage reference. 

| | | OPND {To process operand. 

| | | EDIT {To set comment item for code file. 

| | | COVER {To load specified Adcon into any general 
| | | | register. 

| | | COMMA jTo get function argument in storage with 
| | | | correct sign. 

| i | RLSWS |To release temporary storage. 

| | | ASFR {To assign a floating register. 

| | |TEVFL4 |To file an address constant. 

| | |TEVFL5 |To file a parameter 1ist entry. 

| | | TEVVR {|To file a V/R address constant pair. 

| inl ns So Sw ccs i i a ae a See Sem a he a i a we a es eas a a ne en Soe eh coe ae cn a en oS we 
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Table 24. Phase 4 Decision Table (Part 8 of 12) 


Routine:-—~—-—-—--—---Phase 4-~--~-~~-~-—~---+~—-~ 


wr rr rn re rn Level: 4-(Cont'd)--- 
(eras = MeN ee ee ee eer To la a a a a a a a a a a aad 1 
| | | Routines | l 
|Routine| Usage | Called | Calling Conditions | 
~------}~----=-~------~-----------4~-------} ---=--- ---- === === === === === ===] 
|RLTNL |Generate relational | KEY |To determine status of two operands. | 
| | operations. | SLONE |To optimize storage-register | 
| | | | operand-situation. | 
| | | SLPOS {To optimize register-register | 
I | | | operand-situation. | 
| | | SELOP |To optimize storage-storage | 
| | | | operand-situation. | 
| | |SELSR |To select single general register. | 
| { | MEMAC |To get cover for storage reference. | 
| | {EDIT |To set comment item for code file. | 
| { | INSOT |To make code file entry. | 
| | | OPND {To process operand. | 
| | | RSLT |To protect operand. | 
| | |SADDR |To get local branch cover. 
| i | LBL {To generate for branch to label. | 
| I {ASAR |To assign a general register. | 
| | | ASFR | To assign a floating register. | 
| | |SELFR |To select single floating register. | 
f------ —}-------~------------------}--------} ---------------------- === - === ---- === | 
{|ANDOR |Generate logical AND or | KEY |To determine status of two operands. I 
| | OR. | SELOP {To optimize storage-storage | 
| { | | operand-situation. | 
| | | SLONE |To optimize storage-register | 
j | | | operand-situation. | 
| | |SLPOS |To optimize register-register | 
{ | | | operand-situation. | 
| | |SELSR |To select single general register. 
| | | MEMAC |To get cover for storage reference. | 
| | | INSOT {To make code file entry. | 
| | | EDIT | To set comment item for code file. | 
| | | ASAR |To assign a general register. | 
| | J OPND |To process operand. | 
| | {| RSLT |To protect operand. | 
| | | LBL |To generate for branch to label. | 
}~------}~--------------------------}---—----}------------------------------------------+| 
| DCOM |Select open function | OPEN1 {To generate selected open functions. | 
| | module. | OPEN2 j|To generate selected open functions. | 
| | | OPEN3 |To generate selected open functions. | 
| | J OPEN4 |To generate selected open functions. | 
| | | OPENS |To generate selected open functions. | 
| | OPEN6 |To generate selected open functions. | 
}------ ~--------~----+--------- +} --- =} === === 2-2-2 
| MAX {Generate for MAX | KEY {To determine status of two operands. | 
| | Operator. | SELOP {To optimize storage-storage | 
| | | | operand-situation. | 
| | | SLPOS |To optimize register-register | 
| | { {| operand-situation. | 
| | | SLONE |To optimize storage-register | 
| | | | operand-situation. { 
| I | MEMAC |To get cover for storage reference. | 
| { {EDIT |To set comment item for code file. | 
| | | OPND |To process operand. | 
| | {| RSLT |To protect operand. | 
| | | INSOT |To make code file entry. 
| | {SELSR |To select single general register. | 
{ | | ASAR {To assign a general register. | 
| | {| ASFR |To assign a floating register. | 
| { { SELFR |To select single floating register. | 
| | | SADDR |To get local branch cover. | 
bes. i ls Sl Deca aa ea ct A a a cae a tk J 
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Table 24. Phase 4H Decision Table (Part 9 of 12) 


Routine:-—-—~-—-------Phase 4--—---—--——-—~-~—~--—-—--+-—-+~~+~—--+-—~— +--+ +--+ + Level: 5-—-———-————.— 
(eS Te coe ea ea et ane Lana NS ee ee ee nT ee 1 
| | : | Routines | | 
jRoutine| Usage {| Called | Calling Conditions | 
Si a Sa i a hs en cece an nal ee ee eu el er 4 

|OPEN1 [Generate selected open j INSOT {To make code file entry. | 
| | functions. {ASAR |To assign a general register. | 
| | | KEY |To determine status of two operands. | 
| | | OPND |To process operand. | 
| | | SELSR |To select single general register. | 
| | | SELFR |To select single floating register. | 
| | {ASFR |To assign a floating register. | 
| | | MEMAC |To get cover for storage reference. | 
| | | RSLT |To protect operand. | 
| | | EDIT {To set comment for code file. | 
| | | SADDR {To get local branch cover. | 

| | |PH4MER |To make machine/compiler error exit. |. 
JOPEN2 |Generate selected open | OPND {To process operand. | 
| | functions. | FLUSH {To reset and/or transfer register table | 
| | { {| entry. | 
{ | | KEY |To determine status of two operands. | 
| | |EDIT {To set comment item for code file. | 
| | | SELFR |To select single floating register. - | 
| j |SELDR |To select even/odd register pair. | 
| { | INSOT {To make code file entry. | 
| | | ASFR |To assign a floating register. | 
| | | SELSR |To select single general register. | 
| | | ASAR {To assign a general register. | 
| | | MEMAC |To get cover for storage reference. | 
| | | RSLT {To protect operand. | 
| | |PH4MER |To make machine/compiler error exit. | 
}-------4---------------- ----------}-------- 4-------------------------------------4----- 4 
{OPEN3 |Generate selected open {EDIT |To set comment item for code file. z | 
| | functions. | SELSR |To select single general register. | 
| | | KEY1 |To determine status of single operand... | 
| | | INSOT |To make code file entry. | 
| | {| ASAR |To assign a general register. | 
| | | SELDR |To select even/odd register pair. | 
| | | SELFR {To select single floating register. | 
| | | MEMAC {To get cover for storage reference. | 
| | | ASFR |To assign a floating register. | 
| j |OPND |To process operand. | 
j | | RSLT {To protect operand. | 
| | |PH4MER |To make machine compiler error exit. | 
~------}----------------—--------- $-------- 4------------------------------------------- { 

J|OPEN4 {|Generate selected open | INSOT |To make code file entry. . | 
| | functions. | ASAR {To assign a general register. | 
| | | KEY1 |To determine status of single operand. | 
| | | FNDFR |To search floating register table. | 
| | | SADDR {To get local branch cover. | 
j | | SELFR {To select single floating register. ] 
| | |ASFR {To assign a floating register. | 
| | | MEMAC |To get cover for storage reference. | 
| | | RSLT |To protect operand. | 
| | | OPND |To process operand. | 
| | | KEY {To determine status of two operands. | 
| | | EDIT |To set comment item for code file. | 
| | {|SELSR |To select single general register. | 
| | |PH4MER |To make machine/compiler error exit. | 
Dae Sh a ae hc ete a i a a aaa re arava ich er J 
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Table 24. Phase 4 Decision Table (Part 10 of 12) 


Routine:---—-—----—~--—--Phase 4---~--~-~-—-~—~-~--—-—~—~+~+--—-——--——~+~~—-—-——~+~+------- Level: 5-—(Cont‘'d)--- 
fear A a ee ie ea a ae ay a ee ae ene 1 
| | | Routines | 
|Routine| Usage {| Called | Calling Conditions | 
|~----------------------—--------- $-------- }------------------------------------------- 1 
|OPENS5 |Generate selected open | ASFR |To assign a floating register. { 
j | functions. {| KEY1 |To determine status of single operand. | 
| | | OPND {To process operand. | 
| | | SELFR {To select single floating register. | 
| | | EDIT {To set comment item for code file. | 
| | | COVER |To load specified Adcon into any general | 
| | {| register. | 
| | | SELSR {To select single general register. | 
| | | MEMAC |Get cover for storage reference. - | 
| | | SELDR {To select even/odd register pair. | 
| | | INSOT | To make code file entry. | 
| | | ASAR {To assign a general register. | 
| | | RSLT | To protect operand. | 
| | |PH4MER |To make machine/compiler error exit. j 
| | | TEVR4& {To file a REAL*4 constant. | 
| | | TEVR8 {To file a REAL*8 constant. | 
[------- }--------------------------+---—--- }--------—----------------------~----------- { 
{|OPEN6 |Generate selected open | OPND |To process operand. | 
| - | functions. {| RSLT |To protect operand. | 
| | | KEY1 |To determine status of single operand. | 
| | |EDIT {To set comment item for code file. | 
| | | SELSR {To select single general register. | 
| | | ASAR |To assign a general register. | 
| | | INSOT |To make code file entry. | 
| | | SELFR |To select single floating register. | 
| | | MEMAC |To get cover for storage reference. { 
| | | SELDR |To select even/odd register pair. | 
| | | ASFR {To assign a floating register. | 
| | |PH4MER |To make machine/compiler error exit. | 
pa fn nnn nnn nnn nnn nn nn ne { 
| LBL {Generate for branch to | FNDAR |To search general register table. | 
| | label. | SELSR |To select single general register. | 
| | | INSOT jTo make code file entry. | 
| { | ASAR |To assign a general register. { 
}~------+--------------------------}-------} ------------------------------------------- 
|SELGD |Determine whether to | None | | 


| | divide in place. | | | 


----- ~-------------------------}--------} ------------------=------------------------4 
|SLPOS |Optimize register-register|SELGM {To get multiplicand in proper register. | 
| | operand-situation. | 


| 
|---~--~}--------------------------}---—--- 4--------—---~----------~------------------- { 
|SLONE [Optimize storage-register |SELGM {To get multiplicand in proper register. | 
| | operand-situation. { | | 
~--~---}-------------------------- $--------}-------------------------------------------] 
|SELOP |Optimize storage- | None | | 
i | storage operand- { | | 
| | situation. | | | 
~------}-------------------------- ¢----—---- $------------------------------------------- { 
|FETCH |Fetch/complement and/or | SELSR |To select single general register. | 
| | store operand. | | | 
| | | SELFR |To select single floating register. | 
{ | | ASAR |To assign a general register. | 
| | | ASFR |To assign a floating register. | 
| | | EDIT |To set comment item for code file. | 
| | | COVER |To load specified Adcon into any general | 
| | | | xegister. | 
| | | INSOT {To make code file entry. | 
| | | MEMAC {To get cover for storage reference. | 
Loic ete ee ae Be at a a Se acl eal eas J 
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Table 24. Phase 4& DeciSion Table 


Routine:-------—---— hase 4~~---—---—-—--—-—-----—--—-—--~---———-—--- -- ------- Level: 6-—--—-~——----- 
G2TeSr= Ses Teor ee er ee, Do ee a ee a ee ne nee ee eee re 1 
| | {Routines | 
{Routine| Usage { Called | Calling Conditions | 
| ~----~-4--------------—--- -—-- -—---} -------- 4--—-~----- =< =~ + : 
|SELGM |Get multiplicand in | SELSR |To select single general register. | 
| | proper register. | INSOT jTo make code file entry. { 
i a ss neh i i eB a Sn i is ea a a as ac a a a a cs eto ose as ees ane a ee Si en oe ee os ee ee es ee 4 
|SELDR {Select even/odd register {SELSR {To select single general register. | 
| | pair. | \ | 
Pe ee ae oe ay et ee ee ee tea 8 er ee eee 4 
|SELFR |Select single floating | FNDWS |To get next available temporary storage. | 
| | register. | COVER {To load specified Adcon into any general | 
| | | register. 
| | | INSOT {To make code file entry. | 
| | |TEVFL4 |To file an address constant. | 
------- }~-------------------------4--------4-------------------------------------- 
| ASFR {Assign a floating register.None | | 
~------}-------------------------- }$--------}------------------------------------------- 
| EDIT {Set comment item for | None | | 
| | Code file. | | | 
og oe ye ee or a eS eae ee seat 4 
| KEY | Determine status of two | FNDAR {Two search general register table. | 
| | operands. | FNDFR {To search floating register table. | 
~-----~-}--------------------------4-------- $---~---------------------------------------| 
| KEY1 |Determine status of | FNDAR |To search general register table. | 
| | Single operand. | FNDFR |To search floating register table. | 
}-------}--------------------------}--------4-----------------=------------------------- 1 
|MEMAC |Get cover for memory | SELSR {To select single general register. | 
| { references. | INSOT {To make code file entry. | 
| | {| COVER |To load specified Adcon into any general | 
| I | | register. | 
| | | FNDAR {To search general register table. | 
| { | ASAR jTo assign a general register. | 
| RSLT | Protect operand. | COVER {To load specified Adcon into any ger | 
| | | | register. | 
| | | OPND {To process operand. | 
{ j | FNDAR {To search general register table. | 
| | | ASAR |To assign a general register. | 
| i | INSOT {To make code file entry. : | 
| | | FLUSH |To reset and/or transfer reqintes table | 
| { 1 | entry. l 
| | | FNDWS |To get next available temporary storage. | 
t----- ma a an nnn nnn nnd 
J|SADDR |Get local branch cover. |INSOT {To make code file entry. | 
| | | SELSR |To select single general register. | 
| | | ASAR {To assign a general register. 
MN i a a a et eel et etl 
Routine:--—~-—---—---~--—Phase 4-~---—~—--—~-—--——--—~—-—~—-—-—-—-—-—--—-——-—-—-—---—------ Level: 7-—--~------—-—-- 
ee ne are ee ey eee {SSeS ee ee 1 
{| OPND | Process operand. | RLSWS |To release temporary storage. | 
|-------}-------------------------- 4-------- +--------------------------=--------------— { 
|FNDFR |Search floating register j|None | | 
| | table. | | 
ew ee a ee, ek Se ge ee re 
|COVER |Load specified Adcon into |SELSR |To select single general register. | 


any general register. | FNDAR 


| INSOT 


(Part 11 of 12) 


{To search general register table. 
|To make code file entry. 
ee assign a general register. 
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Table 24. Phase 4 Decision Table (Part 12 of 12) 


Rout ine: —--—~-------~-Phase 4-~-—--~--—--—~-—-—-—~—-—-—-~-~—~—-—-~—+—-—- ---—-— —---+---~—~ Level: 8—----—---—---~-- 
RS a ee eg a ee oS Day eee ee ee ee 1 
| j Routines | 

|Routine| Usage | Called | Calling Conditions 

}------- $-------------------------- ¢-------- $------------------+------------------------ 4 
| ASAR {Assign a general jNone | | 
| | register. | | | 
~------}~------------------------- $---—--- $------------------------------~------------ { 
|SELSR |Select single general | FLUSH |To reset and/or transfer register table | 
| jregister. ~ = | Jentry. 
| | | FNDWS |To get next available temporary storage. | 
| | | INSOT |To make code file entry. | 
| | |TEVFL4 |To file an address constant. | 
|~------+-------------------------- $---—----}--—--------------------------------------- { 
|RLSWS |Release temporary | None | | 
| | storage. | | | 
mann nnn nen nn $-------- $—-~—----—-------- ~~ === { 
|FNDAR |Search general register | None | | 
| | table. | | | 
a a i a a a a a a a J 
Routine:---—-—~—---—-—--—Phase 4--~---—~----~---—-—-—-—~~—--—~—---—~+-+———-—-~+—-—---—-—-—---—- Level: 9--~-------—-—- 
Seas EA ee eS te eg Oe ere OO et ee ee ee ee a eae ee ay 
| FNDWS |Get next available |TEVFL&4 |To file an address constant. | 
| | temporary storage. | | | 
~------+}----------------+-—-------}---—--- }-------------------------------------------] 

| 


—+t 
| FLUSH |Reset and/or transfer | None 
| {| xegister table entry. | | | 


naan - Hp = a nn nn nf nnn nn nf nn nnn nnn nn nnn nnn nf 


|INSOT |Make code file entry. | None | | 
Daten a as Boe oe a a as ee J 
Routine:-—~-—--—-----Phase 4-~-----—-~-—-~—~—--—-—-—~—-———--—-—-+-—---—-—-~-Level: Executive Routines 
a ea ae pe ae a Og eS et ee 


| TEVFL4 |File an address constant. | 


{|TEVC8 |File a COMPLEX*8 
| {| constant. | 


| 
Se ee et a re a re ; iar aes pS a ee { 
|TEVFL5S |File a parameter list { | | 
| | entry. | | | 
~------}-------------------------- 4--------}-------------------------------------------| 
|TEVVR |File a V/R address | | | 
| | constant pair. | | | 
~------}-------------------------- 4--------}------------------------------------------- 
[|TEVI2 |File an INTEGER*2 | | | 
{ { constant. { | | 
}------- $-------------------------- $-------- $------------------------------------------- 4 
{TEVIS [File an INTEGER*4 I | | 
| {| constant. | | | 
~------}-------------------------- +------- -}------------------------------------------- 4 
|TEVRG {File a REAL*4 constant. | | | 
|~------}--—-------------------—--- f-————=- —}------------------------------------------- { 
{TEVR8 |File a REAL*8 constant. | | { 
-------}-------------—----------- }-~------4--------—---------------—----------------| 

[ | 

| 


|TEVC16 {File a COMPLEX*16 


{ | 

| | constant. | | | 

~---—~4 ---=------------ = $--------}-------------------------------—---------- 
| TEVRDM jIssue a diagnostic | | | 
{ | message. | { | 
}------- }-------------------------- +-------- $------------------------------------------- { 
|TEVFLL |Make symbol table entry | | | 
| | for created label. | | | 
~-~----}-------------------------- $--------}--------—----------------------------------4 
|TEVCRL |Create a label for the | | | 
| | code file. | | | 
boos ee a ae ba a a J 


a aR 


CEKNX -- Phase 4 Master Control (PHAS 4) 


The main object of PHAS4 is to perform a 
serial scan of program file entries and to 
select the appropriate statement processor 
for each PF entry. See Figure 30. 


ENTRIES: PHAS4 is entered at its external 
entry point, CEKNX1, from the phase con- 
troller via standard linkage. It expects 
to receive the base of the compiler's 
intercom as a parameter. There are three 
additional entry points, PH4MES, PH4MER, 
and PH4XKER, which are used only by Phase 4 
subroutines upon a detected compiler error 
or suspected machine error. 


EXITS: PHAS4 has four exits to the phase 
controller. 
OPERATION: Upon entry from the phase con- 


troller, PHAS4& copies the compiler‘s inter- 
com into the phase‘s PSECT. Three nonvola- 
tile registers are established as phase- 
wide common registers and initialized to: 


1. Symbol Table Base (N1) 
2. Expression Tree Base (N2) 
3. Name Table Base (N3) 
The following areas are cleared: 
1. Name Table 
2. Temporary Storage Utilization Matrix 
Program file entries are processed 
Sequentially. The ID of each PF entry is 
used to select the statement processor. 
After processing the last PF entry, PHAS4& 


restores the compiler‘'s intercom and 
returns to the phase controller. 


CEKOD -- Entry Point Processor (ENT) 


Subroutine ENT is used to generate the 
preamble at an entry point. See Chart DU. 


ENTRIES: The entry point is CEKOD1. ENT 
expects a pointer to the PF item (describ- 
ing the entry) in register P2. 


EXITS: Normal exit only. 
OPERATION: For all three types of entries 


-- entry at the beginning of a main pro- 
gram, main entry of a subprogram, and 
alternate entry of a subprogram -- ENT 
generates code necessary to save registers 
and establish PSECT cover as follows: 


STM 14,12,12(13) 
L 14,72(0,13) 
ST 14,8(0,13) 
ST 13,4(0,14) 
LR 13,14 


An address constant which covers local 
temporary storage is then filed in the sym- 
bol table, and the instruction 


L 12,n(0,13) 


is generated (n is the storage class 4 
assignment of the Adcon just filed). 


In addition to this “canned" code, which 
is common to all entries, ENT generates 
additional instructions depending upon the 
type of the entry. 


In a main program the “canned" code is 
appended by a call to the Task Initializa- 
tion Subroutine CHCDB1. 


Presence of a parameter list upon an 
entry into a subprogram requires ENT to 
generate the necessary code for object time 
parameter processing. A program file (PF) 
item describing a subprogram main entry 
triggers sorting of the Adcon list in the 
formal argument adcon table (referred to by 
Phase 4 as FAAL and by Phase 3 as FAAT). 
The sort arranges the entries in the FAAL 
in the order of argument numbers (ANO). 
(Note: ANO is a local abbreviation only, 
used to define the uses of ANO in asso- 
ciated flowcharts.) Several entries with 
the same ANO are sorted according to the 
values of the adcons (A), as given in their 
corresponding symbol table entries. — 


Each parameter, as indicated by its 
argument number (the argument number equals 
STCL minus 128) in the PF item, is matched 
against the ANOs in the FAAL, and ENT. 
generates code to combine adcon values with 
the value of the matching parameter and to 
store the completed parameter address into 
the appropriate location (SLOC), as given 
by the adcon symbol table entry. 


A branch around the preamble is 
generated by ENT for alternate entries not 
preceded by STOP, RETURN, or branches (GO 
TO, IF, etc.). 


CEKNU -~- Referenced Label PF Entry 
Processor (LABEL) 


LABEL is called by the PF scanner to 
process a referenced label program file 
entry. See Chart DV. 


ENTRIES: Entry is to CEKNU1, with a point- 
er to a referenced label PF entry in regis- 
ter P2. 


EXITS: Normal exit only. The output of 
LABEL is an updated symbol table entry for 
the label. 
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OPERATION: LABEL stores the current con- 
tents of the location counter in the 
storage location field of the label's sym- 
bol table entry. The symbol table entry's 
storage class field is set to 1 (code 
file). Next, the symbol table pointer to 
the adcon entry is followed, and the 
storage class field of the name part of the 
adcon is examined. If it is equal tol, 
exit is made; otherwise, the storage class 
field is set to 1, and the current contents 
of the location counter is stored in the 
value 1 field. All entries in the 
floating-point MRM table are cieared. 
nonglobally assigned general register 
entries are cleared. Control then returns 
to the PF scanner. 


All 


CEKMJ -- Equation PF Entry Processor 
(EQUAT) 


EQUAT is called by the PF scanner to 
process an equation program file entry. 
See Chart DW. 


ENTRIES: Entry is to CEKMJ1, with a point- 
er to an equation PF entry in register P2. 
EXITS: Normal exit only. 

OPERATION: EQUAT first processes the right 
Side of the equation by calling on AGEN and 
the appropriate lower level subroutines. 
Code is generated to produce the result, 
and to load it ina general or floating 
register. At this point all register table 
entries for variables and/or subscripted 
variables, except the right side entry for 
the current equation, are cleared to pre- 
vent potentially conflicting register usage 
arising through the use of EQUIVALENCE 
statements or other possible indirect vari- 
able definitions. AGEN is then called 
again to produce code, if necessary, for 
the left side of the equation. Next, the 
appropriate store instruction is generated 
to store the right side into the resultant 
address specified. OPND is called once for 
each side, to check for any final usages of 
common expressions. If the right side isa 
final usage of a CSX or a noncommon expres- 
sion, the register containing it is 
asSigned to the left side result. Other- 
wise, a synonym entry is made for the left 
Side appropriate to its type. Control is 
then returned to the PF scanner. 


CEKNK -- Arithmetic IF PF Entry Processor 
(AIF) 


AIF is called by the PF scanner to pro- 
cess an arithmetic IF program file entry. 
See Chart DX. 

ENTRIES: Entry is to CEKNK1i, with a point- 
er to an arithmetic IF PF entry in register 
P2. 


EXITS: Normal exit only. 

OPERATION: AIF first processes the arith- 
metic expression by invoking AGEN which 
generates any code necessary to form the 
expression in an appropriate general or 
floating register. Next, the three trans- 
fer points are checked for fall-through 
condition (i.e., the label on the following 
statement matching one or more of the 
transfer points). No conditional branching 
code is generated for a transfer point 
where fall-through exists. Finally, the 
required conditional branch instructions 
are generated. Whenever possible, the con- 
ditional branch instructions are ordered 
such that transfer to points which are cur- 
rently covered are executed first. 


CEKNL -- Logical IF PF Entry Processor 
(GIF) 


LIF is called by the PF scanner to pro- 
cess a logical IF program file entry. See 
Chart DY. 


ENTRIES: Entry is to CEKNL1, with a point- 
er to a logical IF PF entry in register P2. 
EXITS: Normal exit only. 

OPERATION: LIF first determines the nature 
of the logical operand by means of a call 
on AGEN, with the logical IF flag set. If 
the logical operand is a noncommon or com- 
mon subexpression just computed, AGEN 
generates the appropriate code for loading 
and testing the logical operand and for 
branching around the logical IF object 
Statement, if necessary. If, however, the 
logical operand is a variable, constant, 
residue, or common expression computed pre- 
viously, LIF generates the required code. 


CEKNT -- GO TO PF Entry Processor (GOTO) 


GOTO is called by the PF scanner to pro- 
cess to GO TO program file entry. 


ENTRIES: Entry is to CEKNT1, with a point- 
er to a GO TO PF entry in register P2. 
EXITS: Normal exit only. 

OPERATION: GOTO supplies the required 
operation code and label symbol table 
pointer for LBL, which then generates the 


loading of any necessary adcons and the 
branching code. 


CEKNS -~- Assign PF Entry Processor (ASSGN) 


ASSGN is called by the PF scanner to 
process an ASSIGN statement program file 
entry. See Chart DZ. 
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ENTRIES: Entry is to CEKNS1, with a point- 
er to an ASSIGN PF entry in parameter 
register P2. 

EXITS: Normal exit only. 

ASSGN first creates an adcon to 
cover the label being referenced. Next, a 
load of the adcon is generated. Cover is 
obtained for the assigned variable, and a 
store instruction is generated to place the 
adcon in the assigned variable’s location. 


CEKNQ ~-- Assigned GO TO PF Entry Processor 
(AGO) , 


OPERATION: 


AGO is called by the PF scanner to pro- 
cess an assigned GO TO program file entry. 
See Chart EA. 


ENTRIES: Entry is to CEKNQ1, with a point- 
er to an assigned GO TO PF entry in parame- 
ter register P2. 


EXITS: Normal exit only. 


OPERATION: AGO selects a register for 
loading of the assigned variable. Cover is 
obtained for the assigned variable. Code 
is generated to load the assigned variable 
into the selected register and to branch 
unconditionally on the address contained 
therein. The register table entry for the 
assigned variable is cleared, and control 
is returned to the PF scanner. 


CEKNR_ -- Computed GO TO PF Entry Processor 
(CGO) 


CGO is called by the PF scanner to pro- 
cess a computed GO TO program file entry. 
See Chart EB. 


ENTRIES: Entry is to CEKNR1, with a point- 
er to a computed GO TO PF entry in parame— 
ter register P2. 

EXITS: Normal exit only. 

OPERATION: CGO first generates an adcon to 
cover the transfer list. The adcon's posi- 
tion in the adcon page is saved for future 
use in CGO. A label,which will be placed 
as the first element in the transfer list, 
is generated. The transfer produced is to 
the next statement following the computed 
GO TO. The label is accessed at object 
time when the computed GO TO index is found 
to be out of range. After the label has 
been generated, an adcon is filed to cover 
each element in the transfer list, includ- 
ing the generated label element. Next, 
code is generated to load the computed GO 
TO index variable ina register, if neces- 
sary, and test for the out-of-range condi- 
tion. A register is then selected for the 
transfer list pointer, and code is 
generated to accomplish the appropriate 
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transfer. Prior to exit, the register 

table entries made in CGO are cleared, and 
the current contents of the location count- 
er and a storage class of 1 (code) are set 
in the generated label symbol table entry. 


CEKOL -- CALL Statement Processor (CALL) 


The objective of subroutine CALL is to 
generate object code for a CALL statement. 
See Chart EC. 


ENTRIES: The entry point is CEKOL1. CALL 
expects a pointer to the program file entry 
in parameter register P2. 

EXITS: Normal exit only. 

OPERATION: For a CALL statement with a pa- 
rameter list, the object code is generated 
in subroutine FUNC (via AGEN). Calls to 
subroutines without parameters are pro- 
cessed by subroutine CALL. 


In any case, subroutine CALL generates 
the code to process optional returns 
(RETURN i), if applicable. 


_ CEKOE -- RETURN Processor (RTRN) 


The objective of subroutine RTRN is to 
generate the code for a RETURN statement. 
See Chart ED. 


ENTRIES: The entry point is DEKOE1. RTRN 
expects a pointer to the appropriate pro- 
gram file entry in parameter register P2. 
EXITS: Normal exit only. 

OPERATION: Subroutine RTRN generates code 
to reestablish the caller's PSECT cover, 
reload general registers, set the low-order 
bit in the caller's forward link to 1, and 
set general register 15 with a return code. 
Either of two different instruction 
sequences is constructed, depending upon 
the return code being a constant (including 
no return code) or a variable. 


CEKNM -- Begin Loop 1 PF Entry Processor 
(BL1) 


BL1 is called by the PF scanner to pro- 
cess a begin loop 1 program file entry. 
See Chart EE. 


ENTRIES: Entry is to CEKNM1,with a pointer 
to a begin loop 1 PF entry in parameter 
register P2. 

EXITS: Normal exit only. 

OPERATION: BL1 scans the global reserva- 
tion list, which is part of the BL1 PF 
entry, looking for CSX entries. For each 
CSX entry found, the global assignment bit 
in the CSX's corresponding name table entry 


is set. If the loop is unsafe, the global 
temporary flag is set. The list of removed 
expressions is then processed, by calling 
AGEN to generate code for each removed 
expression in the list. When all list 
entries have been so processed, control is 
returned to the PF scanner. 


CEKNN -- Begin Loop 2 PF Entry Processor 
(BL2) 


BL2 is called by the PF scanner to pro- 
cess a begin loop 2 program file entry. 
See Chart EF. 


ENTRIES: Entry is to CEKNN1, with a point- 
er to a begin loop 2 PF entry in parameter 
register P2. 


EXITS: Normal exit is at the termination 
of begin loop 2 PF entry processing. Exit 
is via PH4MES in case of loop table 
overflow. 





OPERATION: The BL2 processor generates 
code for computing all recursive subscript 
expressions. Processing is divided into 
two main sections. The first involves the 
generation of code to produce the initial 
value and increment expressions for each 
recursive expression. The second section 
produces the test value code. 


Initial value processing is performed to 
ensure that code is generated to produce 
the initial value and load it either intoa 
global register, if required, or into tem- 
porary storage. Increment processing per- 
forms the same functions for the increment, 
and, in addition, makes the appropriate 
entry in the loop table. 


After the initial value and increment 
are processed for each recursive expres- 
Sion, the materialization flag is tested. 
If materialization is required, code is 
generated to load the beginning value of 
the induction variable in storage. The 
induction variable, increment, and end 
values are stored in the loop table. If 
materialization is not required, code is 
generated to produce the test value and 
store it or globally assign it, as 
required. 


The final processing in BL2 rescans the 
global reservation list. Ail adcons and 
CSX"s listed are globally assigned and 
loaded into registers, and all remaining 
active expressions in the general and 
floating registers are assigned temporary 
storage. Control then returns to the PF 
scanner. 


CEKNO -- Begin Loop 3 PF Entry Processor 
(BL3) 


BL3 is called by the PF scanner to pro- 
cess a begin loop 3 program file entry. 
See Chart EG. 


ENTRIES: Entry is to CEKNO1, with a point- 
er to a begin loop 3 PF entry in parameter 
register P2. 


EXITS: Normal exit is at the termination 
of begin loop 3 PF entry processing. Exit 
is via PH4MES in case of loop table 
overflow. 





OPERATION: BL3 is responsible for process- 
ing all induction-variable-dependent common 
expressions which can be removed to just 
inside the loop top. Initially the temp 
bit matrix is searched locating the lowest 
available temp byte. BL3 then enters the 
loop top label's symbol table pointer in 
the loop table, then updates relevant 
fields within the symbol table entry for 
the loop top label. Next, the chain of 
induction-variable-dependent expressions is 
processed. Code is generated to produce 
each expression in the chain. After all 
expressions in the chain have been pro- 
cessed, control returns to the PF scanner. 


CEKNP -- End Loop PF Entry Processor’ 
(ENDLP) 


ENDLP is called by the PF scanner’ to 
process an end loop program file entry. 
See Chart EH. ; 


ENTRIES: Entry is to CEKNP1, with a point- 
er to an end loop PF entry in parameter 
register P2. 


EXITS: Normal exit is at the termination 
of end loop PF entry processing. Error 
exit iS via PH4MER in the event that a 
globally assigned quantity is found not to 
be in a register. 


OPERATION: The end loop PF entry processor 
commences by scanning the recursive entries 
in the loop table. For each entry code is 
generated to load the recursive expression 
in a register, if necessary, and increment 
it. After all recursive entries have been 
processed, the materialization flag in the 
loop table is tested. If materialization 
is not required, code is generated to com- 
pare the last recursive expression pro- 
cessed against the test value and to trans- 
fer control appropriately. If materializa- 
tion is required, code is generated to load 
the induction variable (if necessary), 
increment it, store the new value back in 
the induction variable's storage cell, com- 
pare the new value of the induction vari- 
able against the test value, and transfer 
control appropriately. 
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Next, the global assignment list in the 
loop table for this level is examined. For 
each CSX entry the global assignment bit in 
the CSX's name table entry is cleared. The 
global assignment bit in the register table 
entry for the CSX is cleared. For each 
adcon entry, the global assignment bit in 
the register table entry for the adcon is 
cleared. Upon completion of this task, the 
location of the highest assigned temp, 
saved at exit from BL2, is restored; and, 
control is returned to the PF scanner. 


CEKOH -- I/O Statement PF Entry Processor 
(RD) 


The I/O statement PF entry processor is 
called by the PF scanner whenever READ, 
WRITE, PRINT, PUNCH, or file control PF 
entries are encountered. See Chart EI. 


ENTRIES: Entry is to CEKOH1, with a pointer 
to the pf entry in parameter register P2. 


EXITS: Normal exit only. 

OPERATION: The I/O statement PF entry pro- 
cessor is responsible for the generation of 
a standard linkage to the I/O initializa- 
tion routine. Prior to generation, a pa- 
rameter list (see Figure 31) is constructed 
to provide the information required by the 
initialization routine at object time. 
After the standard linkage code is gener- 
ated, all floating register table entries 
for registers 1, 14, and 15 are cleared. 
Control then returns to the PF scanner. 


CEKOI -- I/0 List Element PF Entry 
Processor (OLIST) 


OLIST is called by the PF scanner to 
process an I/O list program file entry. 
See Chart EJ. 


ENTRIES: Entry is to CEKOI1, with a point- 
er to an I/O list element PF entry in pa- 
rameter register P2. 

EXITS: Normal exit only. 

OPERATION: OLIST is responsible for the 
generation of a standard linkage to the 
list item processor. Prior to generation, 
a parameter list is constructed to provide 
the information required by the list item 
processor at object time. In addition, if 
required, code is generated to compute the 
effective address of the list item at 
object time. Upon completion of all 
required generation, all floating register 
table entries and general register table 
entries for registers 1, 14, and 15 are 
cleared. Control then returns to the PF 
scanner. 
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CEKOJ -- End List PF Entry Processor 
(NDLST) 


NDLST is called by the PF scanner to 
process an end list program file entry. 
NDLST also may be invoked at a second entry 
point -- LINK -- to generate a standard 
CALL linkage. See Chart EK. 


ENTRIES: This routine has two entry 
points: NDLIST (CEKOJ1) and LINK (CEKOJ2). 
Entry to NDLST (CEKOJ1) is made with a 
pointer to an end list PF entry in parame- 
ter register P2. NDLST calis LINK. 


Alternate entry, LINK (CEKOJ2), is 
entered with a symbol table pointer to the 
subprogram name in register Pl. 


EXITS: Normal exit only. 


OPERATION: NDLST generates a standard 
linkage to the I/O library List Termination 
routine (CHCIU). 


LINK resets the register tables for all 
floating-point registers and general regis- 
ters 1, 14, and 15 and then proceeds to 
generate the code for a standard linkage. 


CEKOK -- STOP and PAUSE Statement PF Entry 
Processor (STOP) 


STOP is called by the PF scanner to pro- 
cess either a STOP or PAUSE program file 
entry. See Chart EL. 


ENTRIES: Entry is to CEKOK1, with a point- 
er to either a STOP or PAUSE PF entry in 
parameter register P2. 

EXITS: Normal exit only. 

OPERATION: STOP is responsible for the 
generation of a standard linkage to either 
the STOP or PAUSE library subroutines. No 
distinction is made between the two cases 
within STOP, since the necessary distin- 
guishing information is obtained from the 
same relative PF entry location in either 
case. Prior to code generation, STOP con- 
structs a i-entry parameter list with a 
pointer to the STOP or PAUSE message. Upon 
completion of code generation, all floating 
register table entries and general register 
table entries for registers 1, 14, and 15 
are cleared. Control then returns to the 
PF scanner. 


CEKNW -- Arithmetic Expression Generator 
(AGEN) 


AGEN is used to construct expression 
trees and to resolve the trees by selecting 
the appropriate generators. See Chart EM. 


ENTRIES: The entry point is CEKNW1. The 
input parameter, in register P2, isa 
pointer to the major operator of the Polish 
String in the program file. 


EXITS: Normal exit only. The out parame- 
ter, in register P2, is a pointer to the 
Major operator of the expression tree. 


OPERATION: AGEN is invoked to generate 
arithmetic expressions. AGEN uses subrou- 
tine TRBLD to build the expression tree 
from program file entries. No more pro- 
cessing is required for a trivial tree 
where the major operator is either primi- 
tive or an already computed common expres- 
sion. If the tree is more complex, AGEN 
invokes subroutine WGHT to assign relative 
weights to the nodes of the tree. These 
weights determine the sequence in which the 
tree is resolved by AGEN. Before resolving 
the tree, AGEN uses subroutine CSX to count 
the number of occurrences of common expres- 
Sions in the expression and to record these 
counts in corresponding name table entries. 


To resolve the tree, AGEN inspects the 
operands at each node, starting with the 
major operator. If one of the operands is 
not resolved, the pointer to it is 
installed as the current node pointer. 

Then its operands are examined. If both 
operands at a node are unresolved, the 
operand with the larger weight is inspected 
next. Generation occurs when a node is 
reached where both operands are resolved 
(primitive or already computed). AGEN 
selects and invokes the appropriate genera- 
tor subroutine, based upon the operator in 
the tree entry. The generator used for 
plus, multiply, and divide operators: 
depends on the type (integer, real, com- 
plex) of operands. After generation, AGEN 
marks the node and, in the case of a’common 
expression, the corres ponding name table 
entry “computed.” 4 


If the result represents a globally 
assigned common expression of integer type 
and if it is left in a general register 
other than 1, 14, or 15, AGEN sets the 
global assignment flag of the corresponding 
register entry in the register table. 


If the backlink is present, it is 
installed as the current node pointer and 
the procedure is repeated by inspecting the 
operands of the node. 


AGEN exits after the major operator has 
been processed and marked "computed. ”* 


CEKML ~-- Expression Tree Builder (TRBLD) 


TRBLD is entered by the arithmetic 
expression generator to convert an expres- 
sion in the PF into tree-form representa- 
tion in the expression tree. The occur- 
rence of a common expression entry whose 
last use indicator is set will cause set- 
ting of the corresponding bit in the corre- 
sponding name table entry. (See Chart EN.) 


In addition, when the operators +, * and 
7 combine operands of certain mixed types, 
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open conversion functions are introduced to 
eliminate operand type-discrepancy. 


For example: 


A+B 


| 
/ 


oe 
er 


A DBLE 


where A is REAL#4& and B is REAL*8. 


ENTRIES: The entry point is CELMLi. TRBLD 
expects a pointer to the major operator of 
the expression in the PF in parameter 
register P2. 


EXITS: Normal exit only. Output consists 
of the expression tree, the accompanying 
name table entries, and a pointer to the 
major operator of the expression in parame- 
ter register P2. 


OPERATION: The PF is scanned from the 
major operator until the left-most element 
of the expression has been located. This 
is accomplished by initializing a counter 
to zero, and by adding 1 for each operator 
encountered and subtracting 1 for each pri- 
mitive encountered until the count becomes 
negative. The primitive last encountered, 
then, is the left-most element of the 
expression. 


Once the left-most element has been 
found, the tree is built during a left-to- 
right scan of the PF. The push-down table 
STACK is used during this process. Whenev- 
er a constant or variable is encountered, 
the PF entry is converted to expression 
tree form and placed in the next available 
location in the tree. In addition, a 
pointer to the tree entry position is made 
at the top of the stack (see Figure 33). 


0 16 31 
Pre re ee ee Pe ee ae Ty 
[P| | 
| Unassigned 1 | Tree Pointer | 
| {FI | 
Sen ae ea pee ae nee ees Foe) (emp Nee ee eC I 


PF -- Primitive 


Figure 33. Stack Table Entry 
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When an operator or common expression 
entry is encountered, an entry is made in 
the next available tree location. At this 
point, the top two entries in the STACK 
point to the tree entries for the left and 
right operands of the operator just 
entered. (See Tables 25 and 26). The two 
pointers are inserted into the LOP and ROP 
fields of the operator entry. In addition, 
a backlink to the operator is placed in the 
BLINK field(s) of whichever of the operands 
is non-primitive. Now the STACK is “popped 
up” two levels, and the pointer to the cur- 
rent tree entry is “pushed down." 


Table 25. Operand Conversion Function 


Decision Table 


Right Operand Types 


Left Operand Types 





The decision table contains 64 two-byte 
entries. 


0 - No conversion necessary (98) 

1 - Illegal combination of operands (99) 

All Others - Function number of the corres- 
ponding conversion function 


Table 26. Complex Division Left Operand 
Conversion Function Decision 


Table 


Right Operand Types 


Left Operand Types 





This decision table contains 8 two-digit 
function numbers. 


The tree building is terminated after 
the major operator of the expression has 
been processed. 


CEKNE -- Weight Subroutine (WGHT) 





WGHT is used by the arithmetic expres- 
sion generator to assign to each nonprimi- 
tive node of the expression tree a weight 
(or priority) which will determine order of 
generation. The weight is such that, in 
deciding at a given node which branch to 
generate first (if neither branch has been 
generated), the branch which has the larger 
weight will be chosen. See Chart EO. 


ENTRIES: The entry point is CEKNE1. WGHT 
is invoked by AGEN and expects to receive, 
in parameter register P2, the expression 
tree pointer to tht major operator. 

EXITS: Normal exit only. 


OPERATION: The following considerations 
enter into the assignment of weights: 


1. In order to minimize the number of 
active partial results, branches are 
given weights according to their 
complexity. 


2. In order to minimize register storing 
necessitated by function calls, 
branches containing such calls are 
given maximum weight. 


sion. 


3. In order to attempt to prevent the 
storage of a numerator owing to the 
complexity of the denominator, since 
the numerator must always exist in a 
register, the denominator, or right 
operand, of a division operator is 
given an arbitrary boost in priority. 


When WGHT is entered, the tree pointer 
is set at the major operator of the expres- 
First, the left operand is 
inspected. If it is primitive, a computed 
common expression, or already weighted, the 
right operand is inspected. If it, too, is 
one of the above, the operator at the cur- 
rent node is weighted, as described below. 
If the left operand is none of the above, 
the tree pointer is set at the left operand 
entry, and the above process is repeated. 
If the left operand is one of the above, 
but the right operand is not, the tree 
pointer is set at the right operand, and 
the above process is repeated. 


When, finally, both operands are com- 
puted, weighted, or primitive, a weight is 
assigned to the current node of the tree as 
follow: 


1. If both operands are primitive or com- 
puted common expressions, the weight 
is set to zero. . 


2. If neither operand is a primitive or a 
computed common expression, then eith- 
er WMAX or 1 plus the maximum of the 
Operand weights is chosen, whichever 
is less. (Note: In the description 
of the Expression Tree (Appendix A) 
the WMAX field is identified as_ 
WEIGHT.) 


3. If only one operand is neither a pri- 
mitive nor a computed common expres- 
sion, the weight of that operand is 
chosen. 


When this tentative weight has been 
established, the type of operator at the 
current node is determined. If it isa 
function, the weight is set to WMAX. If 
not, the backlink (BLINK) is followed, to 


determine whether the current node is the 


right operand of a division. If it is, the 
weight is increased by 5 to a maximum of 
WMAX. If not and if it is the right 
operand of a colon, the weight is set to 
zero. 


When the weight computation is complete, 
the current node is marked “weighted" and 
the weight is stored in the tree field 
reserved for this purpose. Then the back- 
link is tested. If it is empty, the major 
operator has been weighted, and the genera- 
tion may proceed. If not, the backlink is 
installed as the tree pointer, and the 
entire process is repeated. 
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CEKOB -- Common Expression Usage Count 
(cSX) 


CSX is used by the arithmetic expression 
generator (AGEN) to count the number of 
times each common expression occurs as an 
operand in a given expression tree. In 
addition subroutine CSX pushes down signs 
in the expression tree to the lowest prac- 
tical level. See Chart EP. 


ENTRIES: The entry paint is CEKOB1. CSX 
is invoked by AGEN and expects to receive, 
in parameter register P2, the expression 
tree pointer to the major operator. 

EXITS: Normal exit only. 

OPERATION: CSX starts at the tree base and 
examines the operands at each node. The 
left operand is always inspected first. A 
node is marked “examined,” if both operands 
are either primitive (variables, constants) 
or “examined™ nodes. In addition, if the 
node represents a CSX, the usage count 
field in the appropriate name table entry 
is increased by 1. In all other condi- 
tions, the link to the current operand is 
installed as the node pointer, and the pro- 
cess just described is repeated. if a node 
represents a computed CSX, or residue, or 
if the name table entry of an uncomputed 
CSX shows a nonzero usage count, no further 
inspection of the operands of such node is 
performed, but the node is immediately 
marked “examined"™ and the usage count is 
updated. After a node has been examined 
and so marked, the backlink, if present, 
replaced the current node pointer. The 
whole process is terminated when the major 
operator of the tree has been examined. 


CEKMC ~-- Real Plus Generator (RPLUS) 


RPLUS is entered by the expression 
generator to generate the addition or sub- 
traction of two operands of type REAL*4 or 
REAL+8. See Chart EQ. 

ENTRIES: The entry point is CEKMC1. The 
input, in parameter register P2, is a 
pointer to the current node of the expres- 
sion tree. 

EXITS: Normal exit only. 

OPERATION: The subroutine KEY is entered 
to determine the location of both operands 
(in storage or registers). If both 
operands are in storage, SELOP is entered 
to select the better operand to load. 

SELFR is entered to select a floating-point 
register. MEMAC is entered to assign B, X, 
and D fields and to load cover and/or index 
quantities as necessary. OPND is entered 
to release temporary storage for the 
operands when appropriate. An instruction 
is generated to load the selected operand 
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into the selected register. MEMAC is 
entered to obtain cover for the nonselected 
operand. If the operands agree or disagree 
in sign, an add or subtract instruction, 
respectively, is generated. Finally a reg- 
ister memory entry is made for the current 
node of the expression tree. 


If only one operand is in a register, 
that operand is designated as the selected 
Operand. RSLT is entered to store that 
operand if necessary, and processing con- 
tinues as above from the point at which 
MEMAC is entered for the nonselected 
operand. 


If both operands are in registers, SLPOS 
is entered to select an operand register 
not requiring storage if altered. After 
the selection has been made, OPND is 
entered, and RSLI is entered to store the 
selected register if required. An RR add 
or subtract instruction is now generated, 
and ASFR is entered to make a register 
memory entry for the current node of the 
expression tree. 


CEKMB -- Real Multiply Generator (RMUL) 


RMUL is entered by the expression 
generator to generate the product of two 
operands of type REAL*4 or REAL*8. See 
Chart ER. 


ENTRIES: The entry point is CEKMB1. The 
input is a pointer to the current node of 
the expression tree, passed in parameter 
regsiter P2. 


EXITS: Normal exit only. 
OPERATION: The subroutine KEY is entered 


to determine the location of both operands 
(in storage or registers). If both 
operands are in memory, SELFR is entered to 
select a floating-point register. MEMAC is 
entered to assign B, X, and D fields and to 
load cover and/or index quantities as 
necessary. OPND is entered to release tem- 
porary storage when appropriate. An 
instruction is generated to load the 
selected operand into the selected regis- 
ter. MEMAC is entered again to obtain 
cover for the nonselected operand. A mul- 
tiply instruction is generated, and final- 
ly, ASFR is entered to make a register 
Storage entry for the current node of the 
tree. 


If only one operand is in a register, 
that operand is designated the selected 
operand. RSLT is entered to ensure storage 
of the operand if necessary, and processing 
continues as above from the point at which 
MEMAC is entered for the nonselected 
operand. 


r ga E 48 

If both operands are in registers, SLPOS 
is entered to seleet a register not requir- 
ing storage if altered. OPND is entered to 
release storage and register memory for the 
nonselected operand, and RSLT is entered to 
ensure preservation of the selected 
operand. An RR multipiy instruction is 
generated, and finally ASFR is entered to 
make a register storage entry for the cur- 
rent node of the tree. 


CEKMA -- Real Divide Generator (RDIV) 


RDIV is entered by the expression 
generator to generate the quotient of two 
operands of type REAL*4 or REAL*8. See 
Chart ES. 


ENTRIES: The entry point is CEKMA1. The 
input is a pointer to the current node of 
the expression tree, passed in parameter 
register P2. 

EXITS: Normal exit only. 

OPERATION: The subroutine KEY is entered 
to determine the location of both operands 
(in storage or registers). If both 
operands are in storage, SELFR is entered 
to select a floating-point register. MEMAC 
is entered to assign B, X, and D fields, 
and to load cover and/or index quantities 
aS necessary. OPND is entered to release 
temporary storage when appropriate. An 
instruction is generated to load the divi- 
dend into the selected register. MEMAC is 
entered again to obtain cover for the divi- 
sor. A divide instruction is generated, 
and finally ASFR is entered to make a reg- 
ister storage entry for the current node of 
the tree. 


If the dividend is in a register and the 
divisor is in storage, RSLT is entered to 
ensure storage of the dividend if neces- 
sary, and processing continues as above 
from the point at which MEMAC is entered to 
obtain cover for the divisor. 


If the divisor is in a register and the 
dividend is in storage, SELSR is entered to 
select a register other than the one con- 
taining the divisor. MEMAC is entered to 
assign B, X, and D fields and to load cover 
and/or index quantities as necessary. A > 
load is generated to place the dividend 
into the selected register. OPND is 
entered to release temporary storage and 
register assigned to the divisor as appro- 
priate. An RR divide instruction is 
generated, and ASFR is entered to assign 
the selected register to the current node 
of the expression tree. 


If both operands are in registers, the 
register containing the dividend is desig- 
nated as the selected register. OPND is 
entered to release the temporary storage 


and register assigned to the divisor when 
appropriate. RSLT is entered to store the 
dividend if necessary. Processing con- 
tinues as above from the point at which the 
RR divide instruction is generated. 


CEKMF -- Integer Plus Generator (IPLUS) 


IPLUS generates the sum of two integer 
quantities of length two or four. See 
Chart ET. 


ENTRIES: The entry point is CEKMF1. The 

expression tree address of the plus opera- 
tor is expected in parameter register P2. 

EXITS: Normal exit only. 

OPERATION: The code generated depends upon 


whether the operands are in registers or in 
storage. Three cases are treated: 


1. If neither operand is in a register, a 
register is selected and SELOP is 
entered. SELOP determines which 
Operand should be loaded (become the 
augend or minuend); whether the load 
should be performed with an L (load) 
or LA or (load address) command;: 
whether an addition or a subtraction 
is required; and what sign should be 
associated with the result. 


2. If only one operand is in a register, 
SLONE is entered. SLONE determines 
whether an addition or subtraction is 
required; whether the operation.may be. 
performed in the register containing 
the operand; and what sign should be 
associated with the result. If. the 
Operation may not be performed in the 
register containing the operand, SLONE 
indicates whether that operand should 
be moved to another register before 
generation of an R-X addition or sub- 
traction, or whether the operand in 
memory should be loaded into a regis- 
ter before generation of an R-R addi- 
tion or subtraction. If loading of 
the operand from storage is indicated, 
SLONE specifies whether the load © 
should be performed with a load ora 
load address instruction. 


3. If both operands are in registers, 
SLPOS is entered. SLPOS determines 
whether an addition or subtraction 
must be performed; in which, if eith- 
er, of the operand registers the 
Operation is to be performed; and what 
Sign should be associated with the 
result. If the operations may be per- 
formed in neither of the operand reg- 
isters, SLPOS indicates which operand 
should be moved, and whether the move 
should be performed with a load regis- 
ter or a LCR (load complement) 
instruction. ° 
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IPLUS simply performs the generation 
indicated by the output from SELOP, SLONE, 
or SLPOS and assigns the operation result 
to the selected register. 


CEKME -~- Integer Multiply Generator (IMPLY) 


IMPLY generates the product of two 
integer quantities of length two or four. 
See Chart EU. 


ENTRIES: The entry point is CEKME1. The 
expression tree address of the multiplica- 
tion operator is expected in parameter reg- 
ister P2. 

EXITS: Normal exit only. 

OPERATION: The code generated depends upon 
whether the operands are in registers or in 
storage. Three cases are treated: 


1. If neither operand is in a register, 
SELOP is entered. SLOP determines 
which operand should be loaded; com- 
plements a constant operand and files 
the new value in the symbol table if 
such a procedure will result in a pro- 
duct with the desired sign; indicates 
whether the operand may be loaded by 
means of a load address instruction; 
and, indicates whether an operand is a 
constant power of 2 so that the other 
operand may be loaded and shifted 
appropriately. 


2. If one operand is in a register, SLONE 
is entered. SLONE complements the 
Storage operand and files the new 
value in the symbol table if the 
operand is a constant and if sucha 
procedure will result in a product 
with the desired sign; specifies the 
result sign; indicates whether the 
storage operand is a constant power of 
2 so that the register operand may 
simply be shifted by an appropriate 
amount; and, specifies whether the 
operation may take place in the regis- 
ter or register pair containing the 
muitiplicand or whether that operand 
must be moved to another register or 
register pair before the multiplica- 
tion, and whether the move must be 
done with a load register or a load 
complement instruction. 


3. If both operands are in registers, 
SLPOS is entered. SLPOS selects the 
operand to be used as the multiplicand 
("to" register); specifies the result 
sign; indicates that one operand is a 
constant power of 2 so that the pro- 
duct may be computed by shifting the 
other operand; and indicates that the 
multiplicand must be moved to another 
register before the multiplication is. 
generated, specifying whether the move 
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should be done with a load register or 
a load compliement instruction. 


IMPLY simply generates the multiplica- 
tion as specified by SELOP, SLONE, or SLPOS 
and assigns the result to the selected 
register. 


CEKMD -- Integer Divide Generator (IDVDE) 


IDVDE is used to generate integer divi- 
Sions of 2- and 4-byte quantities. See 
Chart EV. 


ENTRIES: The entry point is CEKMD1. IDVDE 
expects the expression tree address of the 
Givision operator in parameter register P2. 


EXITS: Normal exit only. 
OPERATION: The instructions generated 


depend upon whether neither, one, or both 
operands are in registers: 


1. If neither operand is in a register, 
SELOP is entered. SELOP files the 
complement of a constant operand in 
the symbol table if this procedure 
will produce the desired result sign; 
returns the result sign; and, deter- 
mines whether the dividend may be 
loaded by means of a load address 
instruction. 


2. If one operand is in a register, SLONE 
is entered. SLONE determines the 
result sign; files the complement of 
an operand in the symbol table if the 
operand is a constant and if such a 
procedure produces the desired result 
Sign; determines whether the operand 
should be loaded with a load address 
command; and, determines whether the 
division may proceed in the register 
pair containing the numerator or it 
must be moved to another register 
pair. 


3. If both operands are in registers, 
SELGD is entered to determine whether 
the division may proceed in the regis- 
ter pair containing the numerator or 
the numerator must first be moved to 
another register pair. 


Depending upon the output of SELOP, 
SLONE, or SELGD, instructions are generated 
to perform the division, and the result is 
asSigned to the selected register. 


CEKOV_-- Add by Load Address (LADDR) 


LADDR is entered by the AGEN to generate 
the addition of two quantities (represent- 
ing a recursive test expression) by means 
of a load address instruction. See Chart 
EW. 


ENTRIES: The entry point is CEKOV1. LADDR 
expects restricted linkage convention. 
LADDR is parameter register P2 to contain 
the tree address of the major operator. 
EXITS: Normal exit only. 

OPERATION: LADDR iS given the expression 
tree address of an operator whose two 
operands are to be added by means of a load 
address instruction. The operands are 
loaded into general registers (if not there 
already) and made to have the correct signs 
by means of LCR instructions when neces- 
sary. The two register numbers are made 
the X2 and B2 fields of a load address 
instruction. A third register is selected 
to contain the sum. This register becomes 
the R1 field of the LA instruction and may 
be the same as either B2 or X2, or may 
differ from both. If one of the operands 
is a positive constant less than 4096, the 
constant value will be used as the D2 
field, in which case X2 will be zero. 
Otherwise, when both X2 and B2 differ from 
zero, D2 will be zero. When all fields 
have been set, the instruction LA R1,D2(X2, 
B2) is generated. 


CEKMG -- Complex Plus Generator (CPLUS) 


CPLUS is entered by the expression 
generator to generate the complex addition 
of two operands. See Chart EX. 


ENTRIES: The entry point is CEKMG1. CPLUS 
expects, in parameter register P2, a point- 
er to the tree node containing the plus 
operator. 

EXITS: Normal exit only. 

OPERATION: CPLUS generates code to perform 
the addition in a manner appropriate to the 
types of the two operands. Possible 
operand type combinations are given in 
Table 27 (CMUL). If both operands, (a+bi) 
and (c+di), are complex, the following cal- 
culation is performed: 


(atbi) + (ctdi) = (atc) + (btd)i 


If one operand r is real, the addition is 
performed as follows: 

r + (atbi) = ((r + a) + bil] . 
The code generated depends upon the 


operand types, Signs, and locations 
(storage or registers). 


CEKOF -- Complex Multiply Generator (CMUL) 


CMUL is called by the expression genera- 
tor to generate a complex multiplication. 
The combination of operand types processed 
is given in Table 27. See Chart EY. 





Table 27. Operand Types Processed by CMUL 


c- 
* 
> 


ca : 
poe eS 
Lei 


pa ft 
z z 
Z Z 


7 
* 
- 





nw 
* 
ao 


N - Not processed 

Y - Process as given 

Other - Indicated conversion function has 
been supplied by the tree builder 
(TRBLD) 


ENTRIES: The entry point is CEKOF1. CMUL 
expects, in parameter register P2, a point- 
ex to the tree node which contains the 
Operation to be processed. 

EXITS: Normal exit only. 

OPERATION: Given complex operands, (a+bi) 
and (c+di), CMUL performs the computation: 


{atbi) * (ct+di) = 
(bctad)i. 


(ac-bd) and 


Given real operand r and complex operand 
(a+bi), CMUL performs the computation: 


r * (atbi) = (ratrbi) . 


Processing differs according to whether 
neither, one, or both operands are in 
floating-point registers, and according to 
whether or not both operands are complex. 
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If both operands are in storage and are 
complex, all four floating-point registers 
are used in the computation of the product. 
The product's real and imaginary parts will 
reside in, and be assigned to, registers 0 
and 2, respectively. 


If one operand is in a register pair, 
all four registers will be used, and the 
result will be assigned to and left in the 
Same register pair. 


If each operand is in a register pair, 
all four registers will be used, and the 
result, if possible will be left in, and 
assigned to, the register pair which origi- 
nally contained an operand already in 
storage. 


CEKOG -- Complex Divide Generator (CDIV) 





CDIV is entered by the expression 
generator to generate code to evaluate a 
complex quotient. The combination of 
operand types processed by CDIV is given in 
Table 28. See Chart EZ. 


Table 28. Operand Types Processed by CDIV 


fel 
pfs 
as 


pede 
pies 
I*2 
c*8 
1*2 1*4 R*4 R*8 
C16} C*l6 | C*l6 | C*rI6 


N 
Ce 
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ENTRIES: The entry point is CEKOG1. cCDIV 
expects input in parameter register P2, 
consisting of a pointer to the tree node 
containing the divide operator. 


EXITS: Normal exit only. 


OPERATION: Given complex operands, (a+bi) 
and (c+di), CDIV generates code to perform 
the following computation: 


‘  atbi = (actbd) + (bce-ad) i 
c+di c2+d2 c2+d2 


Given real divisor r and complex numera- 
tor (atbi), CDIV generates code to perform 
the evaluation: 


atbi =a+ bi 
xr r r 


Processing depends upon whether neither, 
both, or one operand is in floating-point 
registers. In all but the complex/real 
case, all four floating registers are used. 


CEKMH -- Relational Expression Generator 
(RLTNL) 


RLTNL generates code to evaluate the 
logical result of the relational operators 
-GT., -LT., and .EQ., or to generate the 
conditional branch associated with a logi- 
cal IF statement. The types of the two 
operands of any given relational expression 
must be identical and may be Integer*2, 
Integer*4, Real*4 or Real*8. The type of 
the result (when the result is a logical 
value) is always Logical*4. See Chart FA. 


ENTRIES: The entry point is CEKMH1. RLINL 
expects the expression tree address of the 
relational operator in parameter register 
P2. 
EXITS: Normal exit only. 

OPERATION: Instructions are generated to 
compare the left and right operands. As a 
result of this comparsion a logical value 
(true or false) is generated in all but one 
Situation: the expression is being used to 
determine the branch condition of a logical 
IF statement and the expression is not a 
common expression. In this case a condi- 
tional branch is generated to the label 
specified in the logical IF PF entry. 
Otherwise, the same branch type is 
generated, but in this case a local branch 
(e.g., BNE*+6) which completes the con- 
struction of a logical value by generation 
of the “false” condition. For example, 
consider the generation which might result 
from the following cases: 


(1) i2) 


L=B.GT.C IF (Y¥Y.GT.x) GO TO 20 
IA 3,1 : 

LE 0,B LE 0,Y 

CE 0,c CE 0,X 

BH ¥*+6 BH 20 

SR 3,3 

ST 3,L 


In case 1 the comparison results in set- 
ting general register ; to true or false. 
In case 2 the comparison results in condi- 
tionally branching to statement number 20. 


The code generated further depends upon 
the types of the operands, the signs of the 
operands, and whether or not the operands 
are in registers. SELOP,SLONE, and SLPOS 
are used to complement constant operands, 
may be loaded with the load address 
instruction; determine which, if either, 
operand must be complemented with a load 
complement instruction; and, if the operand 
to be complemented is in a register, wheth- 
er the operand may be complemented in that 
register or must be moved to another regis- 
ter (register 0 is always used for this 
purpose) before the comparison may take 
place. If the generation results in the 
computation of a logical result, the result 
is assigned to the selected register. 


CEKMI -- Logical Expression Generator 
(ANDOR) 


ANDOR generates code to evaluate the 
logical .AND. and .OR. operators or to 
generate the conditional branch associated 
with a logical IF statement. The logical 
operands must have the same type but may be 


either of type Logical*i or Logical*4. See 
Chart FB. 
ENTRIES: The entry point is CEKMI1. ANDOR 


expects the expression tree address of the 
logical operator in parameter register P2. 


EXITS: Normal exit only. 
OPERATION: ANDOR generates the logical 
-AND. or .OR. of two logical operands. 


Logical*4, and Logical*1 operations are 
somewhat different. If the operation type 
is Logical*4, at least one operand is 
forced to be in a general register by means 
of a load instruction, and (if necessary) 
the operand signs are made to match by com- 
plementing one of the operands. If the 
operation type is Logical*#1, both operands 
are forced to be in general registers with 
the same signs, the loads in this case 
being performed with the combination sub- 
tract register-insert character. The logi- 
cal operation generated and the result sign 
depend upon the expression tree operation 
code and the operand signs (after any com- 
plementation required to force operand sign 


agreement) as summarized in the following 
table: 


Expression Tree Operand Operation Result 


Operation Code Signs Generated Sign 
AND + AND + 
AND = OR - 
OR + OR + 
OR = AND - 


After the logical operation has been 
generated, the result is assigned to the 
selected register, and if either the back- 
link to the next higher expression in the 
expression tree is not zero (indicating 
that the operation generated is part of a 
larger expression) or the logical IF flag 
is not raised (indicating that the expres- 
Sion is not part of a logical IF state- 
ment), generation is complete. Otherwise, 
a conditional branch to the label specified 
in the IF statement is generated. The con- 
dition code has been established by the AND 
or OR Operation generated, and the branch 
instruction generated depends upon the sign 
of the result and the sign of the expres- 
Sion tree operator, as follows: 


Result 
Sign 


Branch 
Operation 

BZ 

BNZ 

BNZ 

BZ 


Expression 
Tree Sign 
+ 
+ 


Del + 


_— 


CEKMU -- Maximum Operator Generator (MAX) 


MAX generates code to evaluate the maxi- 
mum of two quantities. The types of the 
two operands must agree, but may be 
Integer*#2, Integer*4, Real*4, or Real*#8. 
Note: Phase 1 has reduced maximum and 
minimum operations to maximum according to 
the transformation 

MIN (A,B) = -—MAX(-A,-B) 
or 
MIN (A,B,C) =-MAX (MAX (-A,-B),-C) 


and has accounted for differences in the 
types of operands and results by introduc- 
tion of conversion functions such as 


AMAX0 (I,J)=FLOAT (MAX (I,J) ) 
or 
MAX1 (A,B)=INT (MAX(A,B)) 


See Chart FC. 


ENTRIES: The entry point is CEKMU1. MAX 
expects the expression tree address of the 
MAX operator in parameter register P2. 
EXITS: Normal exit only. 

OPERATION: In general the generation of 


the maximum operations consists of selec- 
tion of a register to contain the result, 
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generation of an instruction to obtain one 
operand in the selected register, genera- 
tion of a compare instruction to compare 
the two operands, generation of a condi- 
tional local branch (e.g., BH *+8), and 
generation of a conditionally executed load 
or load register instruction to obtain the 
other operand in the same selected 
register. 


Generation varies in the obvious ways 
according to operand type (integer or real) 
and in addition depends upon the location 
and signs of the operands: 


1. If neither operand is in a register, 
SELOP is entered. SELOP determines 
the result sign; which operand to load 
first; whether the load may be accomp- 
lished with the load address instruc- 
tion; and, whether the operand to be 
loaded must be complemented before the 
comparison is generated. 


2. If one operand is ina register, SLONE 
is entered. SLONE determines the 
result sign; whether the operation may 
take place in the register containing 
the operand; and, whether the operand 
must be complemented, either in place 
or while being moved to another 
register. 


3. If both operands are in registers, 
SLPOS is entered. SLPOS determines 
the result sign; which operand regis- 
ter is to contain the result or that 
one of the operands must first be 
moved to still another register; and, 
whether the selected operand must be 
complemented, either in place or while 
being moved. 


Generation of instructions required to 
position the operands for comparison is 
performed as indicated by SELOP, SLONE, or 
SLPOS. The conditional branch instruction 
generated depends upon the adjusted signs 
of the operands. If the signs are correct, 
BNL is generated; otherwise, BNH is. 


CEKMK -- External Function Generator (FUNC) 


FUNC is entered by the expression 
generator and by the CALL statement proces- 
sor to generate a function or subroutine 
call. Calls upon subroutines with no argu- 
ments are not processed by the expression 
generator and are not treated by this rou- 


tine. See Chart FD. 
ENR 
ENTRIES: The entry point is CEKMK1. FUNC 


expects a pointer to the tree node contain- 
ing the ; operator to be passed in parame- 
ter register P2. 
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EXITS: Normal exit only. 


OPERATION: The tree entry to be processed 
is a ; operator, whose right operand is the 
function name and whose left operand is 
either an expression entry (representing 
the one argument) or a , operator if there 
is more than one operand. Upon entry, all 
arguments are in storage with the desired 
sign. 


The current length of storage class 5 is 
obtained from the Storage Class Table. The 
length indicates the next available byte in 
the parameter list area. A parameter list 
covering adcon is formed and is entered in 
the symbol table by TEVFL4. An instruction 
is generated to load the adcon into general 
register 1. " 


The leftmost (first) argument of the 
function operator is located by following 
left branches in the tree, until one such 
branch is not an argument separator opera- 
tor (comma). Then, starting with the left- 
most operand, and following backlinks until 
the function operator is encountered, each 
argument is given the following processing, 
according to its class code. 


1. Constant operand 


The SLOC of the covering adcon and the 
displacement given in the operand item 
are summed, to form a new adcon cover- 
ing the same storage class. The new 
adcon is entered in the parameter list 
Via TEVFL5. 


2. Variable operand 


If the variable is not a formal sub- 
program argument, it is processed in 
the same manner as a constant. Other- 
wise, instructions are generated to 
compute the effective address of argu- 
ment and to store that address in the 
next available cell in the parameter 
list. 


3. Operator item 
a. Subscripted variable 


If the operand sign flag is set, 
the comma processor has previously 
negated the variable and put it in 
temporary storage, recording the 
temporary assignment in the tree. 
In this case the operand process- 
ing is similar to that given a 
constant. If the flag is not set, 
instructions are generated to com- 
pute the effective address of the 
variable and to store that address 
into the next available cell in 
the parameter list. 


b. Other expression 


The temporary covering adcon value 
is added to the displacement given 
in the tree, and a new adcon is 
formed and added to the parameter 
list by TEVFL5. 


Common expression iten 


Processing is Similzr to that given an 
operator, except that the information 
concerning temporary assignment is 
Obtained from the name table, rather 
than from the tree. 


Function item 


a. Function name is a formal subpro- 
gram argument. 


Code is generated to fetch the pa- 
rameter location from the adcon 
page, where it was stored ina 
subprogram entry preamble, and to 
store it in the next available pa- 
rameter list cell. 


b.. Function name is not a supprogram 
argument. 


A V/R adcon pair is formed and 
entered in the symbol table by 
TEVVR. The storage assignment of 
the V-type adcon is combined with 
storage class 4, to form a new 
adcon which points to the V/R 
pair. The new adcon is entered in 
the next available ceil in the pa- 
rameter list. 


Residue 


Processing is the same as that givena 
common expression item. 


After all the arguments have been pro- 
cessed, the remainder of the linkage 
is generated. This consists of the 
following code: 


e Function being called is not a form 
al argument of the calling routine. 


Load R-adcon 
Store in caller's 


L 14,D+4(13) 
ST 14,72(13) 


PSECT 
L 15,D(13) Load V-adcon 
BASR 14,15 Branch 


where D is the displacement with 
respect to the orgin of the caller's 
adcon page necessary to cover the 


first byte of the 8-byte adcon pair. | 


e Function being called is a formal 
argument. 


L 15,C(13) Load pointer to 
adcon pair 
Load R-adcon 


Store in caller's 


L 14,4(15) 
ST 14,72(13) 


PSECT 
L 15,0(15) Load V-adcon 
BASR 14,15 Branch 


where C is the displacement from the 
adcon page origin of the cell into 
which a pointer to the adcon pair is 
placed in the subprogram preamble. 


CEKNJ_-- Comma Operator Processing 
Subroutine (COMMA) 


COMMA is called by the arithmetic ex- 
pression generator to process the arguments 
of a comma (argument separator) operator or 
by the function operator processing subrou- 
tine to process the argument of a 1- 
argument function. Its purpose is to 
ensure that the operands of the comma 
operator or the operand of the function 
operator are in memory with the correct 
Sign. See Chart FE. 


ENTRIES COMMA has two entry points: 

COMMA (CEKNJ1), entered by the Arithmetic 
Expression Generator, and COMA2 (CEKNJ2), 
entered by the Function Operator Processing 
subroutine. COMMA and COMA2 expect in pa- 
rameter register P2 the expression tree 
address of the comma operator and the func- 
tion operator, respectively. 

EXITS: Normal exit only. 

OPERATION: The left operand of a function 
operator and the right operand of a comma 
operator are always processed. The left 
operand of a comma operator is processed 
only if it is not itself a comma operator. 
The operands processed are treated accord- 
ing to their class: 


1. A constant requires no processing if 
its tree sign is plus. Otherwise, the 
constant is complemented, the resulit- 
ing constant is filed in the symbol 
table, and the constant item in the 
tree is changed to reflect the new 
associated symbol table entry. 


2. A variable requires no processing if 
its tree sign flag is plus. Other- 
wise, a temporary storage location is 
assigned; and, FETCH is entered 


a. to load, complement, and store the 
variable in temporary if the vari- 
able was not in a register; 

b. to complement and store the vari- 
able in temporary if it was ina 
register with the wrong sign; or, 

c. simply to store the variable in 
temporary if it was in a register 
with the desired sign. 
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The identity of the temporary-covering 
adcon and displacement are stored in 
the associated fields in the variable 
item. 


A colon operator or colon common ex- 
pression requires processing if its 
tree sign flag is not plus. Itis 
treated in the same fashion as a vari- 
able. However, the identity of the 
temporary-covering adcon and displace— 
ment are recorded in the name table if 
the operand is a common expression. 


Processing of a noncolon operator 
depends upon whether or not the 
operand is in storage. If it is in 
storage and the storage and tree signs 
agree, no action is taken. If it is 
in storage and the storage and tree 
Signs differ, FETCH is entered to load 
the operand from its temporary, to 
complement it, and to store the com- 
plemented value in the same temporary 
location. If the operand is in a reg- 
ister, a temporary is assigned, and 
FETCH is entered to complement and 
store the operand in the temporary if 
the register and tree signs disagree, 
or simply to store it in temporary if 
they agree. 


If a noncolon common expression is in 
storage and its storage sign agrees 
with the tree sign, no further pro- 
cessing is required. If it is in 
Storage and the signs disagree but the 
Name Table entry indicates that a 
secondary temporary has been assigned, 
the tree entry's “use secondary tem- 
porary” flag is set. 


If the common expression is in 
storage, its Name Table storage sign 
disagrees with its tree sign, and a 
secondary temporary has not been 
assigned, then a new temporary is 
assigned, its assignment is recorded 
in the secondary temporary assignment 
field of the name table entry, the 
name table “secondary temporary 
assigned" flag is set, and the tree 
entry*s “use secondary temporary" flag 
is set. FETCH is entered to load, 
complement, and store the operand if 
it is not also in a register or to 
complement and store if it is already 
ina register with the wrong sign. 


If the common expression is not in 
Storage, a temporary is assigned and 
the assignment is recorded in the name 
table. FETCH is entered to complement 
and store the expression in temporary 
if its register sign disagrees with 
its tree sign or simply to store it if 
the signs agree. 


6. A function item requires no 
processing. 


CEKOM -- Open Function Control Routine 
(DCOM) 


Tnis program is called by the arithmetic 
expression generator (AGEN) when a ;; 
operator (open function connector) is 
encountered. The purpose of this routine 
is to invoke the open function processing 
module appropriate to the function number 
which is given in the right-operand of the 
737 Operator. See Chart FF. 


ENTRIES: DCOM has two entry points. The 
main entry (CEKOM1i) is made with the major 
operator address in parameter register P2. 
The alternate entry in DCOM (CEKOM2) is 
physically packaged with CEKOM; but is 
actually one of the six open function 
modules called by DCOM, and its description 
is to be found under “CEKOM2 -- Open Func- 
tion Processing Routine (OPEN6)." 


EXITS: This routine produces no output. 
If the function number given as input is 
not among those expected, DCOM makes a 
machine/compiler error exit via PH4MER. 


OPERATION: The function number is obtained 
from the right-operand of the ;; operator 
in the expression tree. The appropriate 
open function module processing routine 
entry address is obtained by a table 1look- 
up operation, indexed by function number. 
The routine is then invoked. When return 
is made to DCOM, DCOM immediately returns 
to AGEN. 


CEKOT -- Open Function Processing Routine 
(OPEN1 ) 


OPEN1 is invoked by DCOM to process any 
of the open functions, DSIGN, HDIM, IDIM, 
DIM, SIGN, or DDIM. See Chart FG. 


ENTRIES: Entry is to CEKOT1, with the 
major operator tree address in parameter 
register P2 and the open function number in 
parameter register P3. 


EXITS: If the function number given as 
input is not among those expected, OPEN1 
makes a machine/compiler error return via 
PH4MER. 


OPERATION: This routine performs the code 
generation to effect the following 
functions: 


SIGN(A,B)=(sign of B) *[A| 
DIM(A,B) = Max(A-B,O) 


CEKOU_-- Open function Processing: Routine 
(OPEN2) 


OPEN2 is invoked by DCOM to process any 
of the following open functions: 


CMPLX MOD 
DCMPLX HMOD 


See Chart FH. 


ENTRIES: Entry it to CEKOU1, «swith the 
major operator tree address in parameter 
register P2 and the open function number in 
parameter register P3. 


EXITS: If the function number given as 
input is not among those expected, OPEN2 
makes a machine/compiler error exit via 
PHUMER. 


OPERATION: This routine performs the code 
generation to effect the following 
functions: 


CMPLX (A,B) is the complex quantity 
whose real and imaginary parts are A and B, 
respectively. 


MOD (I,J) =I- I #J 


where [] denotes the integral part. 


CEKOX -- Open Function Processing Routine 
(OPEN3 ) 


OPEN3 is invoked by DCOM to process any 
of the following open functions: 
IABS, DABS, ABS 
and the following type-conversion 
functions: 


Operand Type Result Type 


I*2 R¥4 
I*2 R*¥8 
I*2 C*8 
I* 2 C#16 
I*4 C¥16 
R*¥4 R*¥8 
R*4 Cc*8 
R*¥8 C*¥8 
R*¥4 C¥16 
C*¥8 C¥16 


See Chart FI. 


ENTRIES: Entry is to CEKOX1, with the 
major operator tree address in parameter 
register P2 and the open function number in 
parameter register P3. 


EXITS: If the function number given as 

input is not among those expected, OPEN3 
makes a machine/compiler error exit via 

PH4 MER. 


OPERATION: This routine performs the code 
generation required to effect the above 
functions. 


CEKOY -- Open Function Processing Routine 
(OPENS ) 


OPEN4 is invoked by DCOM to process any 
of the following open functions: 


AMOD HSIGN ISIGN 
DCONJ AINI cCONJ 
DMOD 


See Chart FJ. 


ENTRIES: Entry is to CEKOY1, with the 
major operator tree address in parameter 
register P2 and the open function number in 
parameter register P3. 


EXITS: If the function number given as 
input is not among those expected, OPEN4 
makes a machine/compiler error exit via 
PH4MER. 


OPERATION: OPEN4 performs the code genera- 
tion to effect the following functions: 


MOD (A,B) =A - [3 | *B 
B 
AINT (A) = integer part of A 
CONJ (AtBi) = (A-Bi) 
SIGN (A,B) = sign of B *#[A| 


CEKOZ -- Open Function Processing Routine 
(OPEN5) 


OPENS is invoked by DCOM to process any 
of the following functions: Integer ‘and 
real square, cube, fifth, and seventh 


powers; and, real reciprocal. See Chart 
FK. 
ENTRIES: Entry is to CEKOZ1, with the tree 


address of the major operator in parameter 
register P2 and the open functions number 
in parameter register P3. 


EXITS: If the open function number given 
as input is not among those expected, OPENS 
makes a machine/compiler error exit via 

PH4 MER. 


OPERATION: OPEN5 performs the code genera- 
tion to effect the above functions. 


CEKOM2 -- Open Function Processing Routine 
(OPEN6)* 


OPEN6 is invoked by DCOM to process any 
of the following open conversion functions: 


Operand Type Result Type 
R*¥4 T¥2_ 
R*4 T*4 
R*¥8 R*¥4 
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R*¥8 I¥4 
C¥8 R¥4 
L*¥1 L*4 
L*4 L*1 
I*2 I* 
I*4 [#2 
R*¥8 I*2 
Cc*8 I¥2 
C*¥8 i*4 
C*16 I*2 
C¥16 I¥4 
C*16 R¥4 
C#¥16 R*¥8 
C¥16 C*8 


See Chart FL. 


ENTRIES: Entry is to CEKOM2, with the 
major operator tree address in parameter 
register P2 and the open function number in 
parameter register P3. 


EXITS: If the function number given as 

input is not among those expected, OPEN6 
makes a machine/compiler error exit via 

PH4& MER. 


OPERATION: OPEN6 performs the code genera- 
tion necessary to effect the above conver- 
Sion functions. 


CEKMV -- Memory Access Routine (MEMAC) 


MEMAC is entered to obtain cover fora 
generated storage reference to an arbitrary 
expression tree operand and to provide X2, 
B2, and D2 instruction fields for the 
reference. See Chart FM. 


ENTRIES: The entry point is CEKMV1. MEMAC 
expects the expression tree address of the 
operand to be covered to be in parameter 
register P2. If parameter register P1 is 
nonzero, it is assumed to contain the num 
ber of a general register that must remain 
undisturbed by MEMAC. If no such protec— 
tion is desired, the contents of register 
Pi must be 0. 


EXITS: Normal exit only. 
ters P1, P2, and P3 contain X2, B2, 
respectively. 


Parameter regis- 
and D2, 





OPERATION: MEMAC treats two distinct 
cases: the operand requiring cover either 
is or is not a subscript connector. If the 
operand is not a subscript connector, X2 is 
set to 0, and D2 is obtained directly from 
the displacement field of tree entry or the 
name table entry appropriate to the class 
of the operand. Likewise, the symbol table 
pointer to the covering adcon is obtained; 
and, if that adcon is in a general regis- 
ter, B2 is set equal to the register num 


ee ee ce DS ee ee cee EF ene ee cee ae ee ee ee ee 


*CEKOM2 is physically an alternate in mode 
CEKOM. 
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ber. However, if the adcon is not ina 
register, a register is selected, an 
instruction is generated to load the adcon 
into the selected register, and B2 is set 
equal to the number of the selected 
register. 


If the operand is a subscript connector, 
D2 is set directly to the value given in 
the displacement field of the left operand 
of the subscript connector, and one of two 
cases exists: the right operand of the 
subscript connector either is or is not a ? 
operator. If it is not, X2 is set to 0, 
the right operand of the subscript connec- 
tor is obtained in a general register (by 
loading it if necessary), and B2 is set 
equal to the corresponding register number. 


If the right operand of the subscript 
connector iS a ? operator, each of the two 
operands of the ? operator is treated 
(first right and then left) as if it were 
the single non-? operator operand of the 
subscript connector. The right operand 
determines B2, and the left operand (taking 
care that loading of the left operand does 
not disturb register B2) determines X2. 


CEKOP -- Load Covering Adcon Routine 
(COVER) 


COVER is called to obtain adcon cover 
for generation of storage reference that 
does not require an index field. 


ENTRIES: Entry is to CEKOP1, with the sym- 
bol table pointer to the desired adcon in 
parameter register P2. Parameter register 
number Pl must have either the number of a 
general register whose contents must be 
left undisturbed by the potential adcon 
load or zero. 


EXITS: Normal exit only. The number of 
the register which contains the adcon is 
returned in parameter register P2. 





OPERATION: COVER is given the symbol table 
pointer to an adcon. It determines whether 
the adcon is in a general register. If so, 
the register number is returned. If not, a 
register is selected, the adcon is loded 

into that register, and the selected regis- 


ter number is returned. 


CEKMZ -- Local Branch Generator (SADDR) 


SADDR is called by the relational ex- 
pression generator and by other routines 
requiring generation of a forward branch 
relative to the current value of the loca- 
tion counter. See Chart FN. 


ENTRIES: Entry is to CEKMZ1, with the 
desired displacement in parameter register 
P3. Up to two registers may be specified 
aS unavailable for use as branch cover. 
These are input in parameter registers P1 
or Pi and P2. 


EXITS: Normal exit only. SADDR returns 
the effective displacement and a register 
number in parameter registers P1 and P2 
respectively. 





OPERATION: SADDR expects as input a param- 
eter whose value is between 0 and 4095, 
inclusive. The value represents the 
desired destination in bytes, relative to 
the location counter. It is assumed that 
if SADDR must generate a load to cover the 
destination address, the parameter value 
will apply to the location counter setting 
in effect after that load has been 
generated. 


The sum (S) of the current location 
counter value and the parameter value is 
computed. The register table is searched 
to find a register containing an adcon or a 
code cover quantity whose value (V) is such 
that: 


Vis S < VtH096. 


If such a register is found, the register 
number and displacement are returned to the 
caller. The displacement, in this case, is 
equal to S-V. If no such register exists, 
SELSR is called to select a register (R) 
into which cover may be loaded. INSOT is 
called to generate the instruction BASR 
R,O. ASAR is entered to make a register 
table entry for the code cover quantity now 
in R. R, together with the same displace- 
ment given as input, is output to the call- 
er, and exit is made. 


CEKNV -- Labeled Branch Generator (LBL) 


LBL is called to output code to branch 
to a statement label and provide any neces- 


Sary cover prior to branching. See Chart 
FO. 
ENTRIES: Entry is made to CEKNV1, with one 


of the types of branch operation codes in 
parameter register P1 and a symbol table 

label entry pointer in parameter register 
P2. 


EXITS: Normal exit only. The output of 
LBL is via INSOT, a generated branch 
instruction in the code file. 


OPERATION: LBL is provided with two input 
parameters: the type of branch required to 
be generated, and a pointer to the symbol 


table entry for the label to which the 
branch is to be made. LBL then searches 
the registers to determine if an appropri- 
ate adcon is present to cover the branch 
about to be generated. If not, a register 
is selected and assigned, and a load of the 
adcon generated. Next, a special ID item 
is created for Phase 5, to flag this as a 
branch reference whose address is to be 
filled in. Finally, the incomplete branch 
instruction is generated. 


CEKOS -- Operand Fetch Complement/Store 
Routine (FETCH) 


FETCH is called by the comma operator 
processor to ensure that each argument of a 
function or subroutine is in storage with 
the desired sign. See Chart FP. 


ENTRIES: The entry point is CEKOS1. Input 
parameters are as follows: 
Parameter. Contents 
Register 
Pl Request Key 
2° = Fetch 
21 = Complement 
22 = Store 
P2 Temp-covering adcon pointer if 
store requested 
P3 Displacement relative to temp- 
cover if store requested. 
P4 Register number if operand is 
in a register 
P5 Operand tree address 
EXITS: Normal exit only. 


OPERATION: FETCH generates instructions as 
indicated by input options to load an 
operand into a general or floating regis- 
ter, to complement it in that register, and 
to store it in a specified temporary .cell. 
The usage of floating versus general regis- 
ters and related instructions is dictated 
by the operand type given in the expression 
tree. 


CEKND -- Select Operand Routine (SELOP) 


SELOP is a general purpose operand opti- 
mizing routine which is used by all the 
routines RPLUS, CPLUS, IPLUS, RMUL, CMUL, 
IMPLY, RDIV, CDIV, IDVDE, RLTNL, ANDOR, and 


MAX when both operands are in storage. See 
Chart FQ. 
ENTRIES: The entry point is CEKND1. Reg- 


isters P1 and P2 contain the output parame- 
ters from subroutine KEY (i.e., the signs 
of both operands), and parameter register 
P3 contains the expression tree address of 
the operator whose operands are being 
considered. 


Section 6: Phase 4 173 





(2S ee a et 7.25 SS Se PE a re ene Sar ra 1 
| Register | Operation | Value | Significance | 
}------—------ +-------------—-------- }--~------------- }---~---------------------------- { 
| P5 | maximum, | 0 | Do not complement after | 
| | relational, | | loading operand. | 
| | or logical | | | 
| | | [ | 
| P5 | maximum, | 1 | Complement after loading | 
| | relational, | | operand. | 
| | or logical | { | 
i | | | | 
| P5S | multiplication | 0 | Standard multiplication. | 
| | multiplication | 1 | Multiply with shift. | 
| | multiplication | -4095 | Multiplication by 1. { 
| | | | | 
| P6 | maximum, | irrelevant | | 
| | relational, | | | 
| { or logical | | | 
i | | | | 
| P6 | multiplication | = | Amount of shift if shift is | 
| | | indicated. | 
Bese a Sa a er ee a es es ae J 
EXITS: Normal exit only. Parameter regis- 

ters P1 and P2 contain the result sign (0 

for plus and 1 for minus) and the expres- 

Sion tree address of the operand to be sONDS ae 
loaded, respectively. If bit 0 of parame- 

ter register P3 is 0, the operand is not to o . 

be loaded with a load address instruction; 

otherwise, bits 20 through 31 contain the a6 D -C D 


immediate value to be loaded by means of a 
load address instruction. If the operation 
is plus, the value in parameter register P4 
(0 or 1) indicates that an addition or a 
subtraction, respectively, is to be per- 
formed; otherwise, the register contains 
the expression tree address of the second 
operand. Parameter registers P5 and P6 
have meaning only for the maximum, rela- 
tional, logical, and multiplication opera- 
tors as summarized in the above table: 


OPERATION: The output parameters from 
SELOP specify a procedure for generating 
code in an optimal fashion for the given 
operation and combination of operand signs. 
In particular, SELOP attempts, in one of 
two ways, to allow for generation of a 
result whose sign matches that of the ex- 
pression tree node being processed. The 
first way takes similar forms for the plus 
and logical operators and simply involves a 
choice of which operand is to be loaded. 
For trees 


+ + 
-A B 


-A B 


the right and left operands, respectively, 
would be chosen to be loaded. Similarly, 
for trees 
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the left and right operands, respectively, 
would be chosen. The code generated for 
the cases might be 


1. LE  0,B 2. LE 0O,A 
SE 0,A SE 0,B 
os. 5,C 4. oO 5,D 
BCTR 5,0 BCTR 5,0 
LCR 5,5 LCR 5,5 
N 5,D oO 5,C 


For the multiply and divide operators, 
the operand loaded is irrelevant in deter- 
mining the result sign. For these opera- 
tors, if a direct product would not produce 
the desired sign, the operands are 
examined. If one is a constant, the con- 
stant is complemented and filed in the sym- 
bol table, and the tree entry for the con- 
stant item is modified to reflect the 
change. 


For any of the arithmetic operators if 
the operand selected for loading is a posi- 
tive integer constant less then 4096 (in- 
deed, if there is no other basis for choos- 
ing which operand to load, such a constant 
operand is chosen), a parameter is returned 
in the form of a flag to indicate that the 
selected operand may be loaded with a load 
address instruction. 


In only one Situation is the production 
of the desired result sign ignored. If the 


operation is an integer muitiplication, and 
one of the operands is an integer power of 
two, the other operand is selected for 
loading and multiplication by shifting (or 
by loading only, if the operand is 1) is 
indicated, regardless of the result sign. 


CEKNF -- Select Position for Operation 
(SLPOS) 


SLPOS is a general purpose operand opti- 
mizing routine used by all the routines 
RPLUS, CPLUS, IPLUS, RMUL, CMUL, IMPLY, 
RLTNL, ANDOR, and MAX when both operands 
are in registers. See Chart FR. 


ENTRIES: The entry point is CEKNF1. Pa- 
rameter registers P1 and P2 contain the 
output from the KEY subroutine (numbers of 
registers containing the two operands and 
the corresponding register signs), and pa- 
rameter register P3 contains the expression 
tree address of the operator whose operands 
are being considered. 


EXITS: Normal exit ionly. Parameter reg- 
ister P1 contains the selected operand reg- 
ister in the following form: 





O0<P1<15 Pi = selected register; use 
as is. 
-15<P1<-1 |{Pi| = selected register; 


move operand before using. 


16<P1<31 P1-16 = selected register; 
complement register before 
using. 

4095 Floating-point register 0 is 
selected; complement before 
using. 

-31<P1<-16 |P1]-16 = selected register; 


move and complement before 
using. 


Parameter register P2 contains the result 
Sign: 0 for plus, 1 for minus. Parameter 
register P3, applicable only for plus 
operator, contains 0 to indicate addition 
or 1 to indicate subtraction. For a multi- 
plication operator, the content of P3 has 
the following meaning: 


0 -- perform standard multiplication. 
1 -- multiply by shifting. 
-4095 -- multiply by 1 
(no multiplication). 


Parameter register P4 is of Significance 
only if P3 contains a i, in which case the 
contents of register P4 indicate the number 
of places of shift to be generated. 


OPERATION: The two registers containing 
the operands are given weights according to 
their contents as determined from the ID 
field (MRM2) of the initial entries of the 
corresponding MRM or MRMFR table entries. 
Following is a tabulation of the weights 
assigned: 


Weight Contents 
9 Operator 
8 Common Expression (last use) 
6 Variable 
5 Constant Less than 4096 
4 Constant (Greater than 4095) 
3 Address Constant 
2 Stored Common Expression 
1 Unstored Common Expression 


If the operand signs are identical, or 
if the two weights are not identical and 
either operand is an unstored common ex- 
pression which is not now being used for 
the last time, no refinement of the prelim- 
inary weights is made. Otherwise, an 
increase of 2 is made to the weight of the 
operand whose register sign matches the 
tree sign of the operator being generated. 
This tends to increase the probability that 
the result sign will be the desired sign. 


For all floating-point and logical 
operators, the weights are compared, the 
operand with the highest weight is chosen 
as the “to™ operand, and the corresponding 
determination of result sign is made. 
Additionally, if the floating-point opera- 
tion is plus, the agreement or disagreement 
of the operand signs determines the opera- 
tion, add or subtract, respectively. 


The integer operators require further 
tests. If the register occupied by either 
of the operands is globally assigned, the 
corresponding weight is complemented. Then 
if the maximum weight is negative, SLPOS 
specifies that one of the operands must be 
moved to another register which will become 
the "to" register. If moving one of the 
operands with a load complement instruction 
will produce the desired sign, SLPOS speci- 
fies that this be done. 


CEKOW -- Select One Operand in a Register 


(SLONE) 


SLONE is a general purpose operand opti- 
mizing routine used by RMUL, CMUL, IMPLY, 
RDIV, CDIV, IDVDE, RLTNL, ANDOR, and MAX 
when only one operand is in a register. 

See Chart FS. 


ENTRIES: The entry point is CEKOW1. Pa- 
rameter registers P1 and P2 contain the 
output from the KEY subroutine (the regis- 
ter number and register sign of the operand 
that is in a register and the storage sign 
of the other operand) and parameter regis- 
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ter P& contains the expression tree address 
of the operator being processed. 


EXITS: Normal exit only. Parameter regis- 
ter P1 contains the result sign; P2 con- 
tains the expression tree address of the 
operand in storage; and, P3 contains 0 if 
the storage operand need not be loaded, 1 
if it must be loaded from storage or 
X*"80000nnn‘, indicating that it should be 
loaded with a load address instruction 
whose D2 field has the value nnn. The con- 
tents of parameter registers Pu, P5, and P6 
vary with the operator being processed: 





ee ee ee ee tee 1 

| Register | Operation| Value | 

|--------}-------------}-------—---------+ 

Pu |Maximum, | Expression Tree | 
Jlogical, | address of reg- 
jor relational] ister operand 


| 
| | 
| | 
| | | 
{ Pa | Plus {| 0 -- Add | 
| | | 1 -- Subtract | 
{ | | | 
{ P4 {Multiply {| 0 -- Multiply | 
| | | 1 -- Shift | 
| | j-1 -- Multiply | 
| i | by 1 | 
\ { | | 
| P5 | Maximum, |-1 -- Move with | 
| | logical | Load Comple-| 
| jor relational| ment | 
| | | | 
| { | FFFF0000 -- Move | 
| | | with Load | 
| | | Register | 
| | | | 
| P5 {Add, { 0 -- Do not move | 
| jmultiply, | operand | 
| jor divide | 1 -- Move with | 
{ | | Load | 
| j | Register | 
| | j-1 -- Move with | 
| | { Load Comple-| 
| | | ment | 
| | | i 
| P6 | Maximum, | Desired resuit | 
| jlogical, | sign | 
| jor relational| | 
| | 
P6 eiue | 0 -- Add or sub- | 
| | | tract in | 
| | | register | 
| | | 1 -- Load storage| 
| | | operand into| 
| | | a second | 
| | | register and| 
| | | add or sub- | 
| | | tract there | 
| | | | 
| P6 {Multiply | Length of shift | 
| | | if P& = 1; other-| 
| | | wise, irrelevant | 
| | | if P4 = 1; other-| 
| | | wise, irrelevant | 
fe eet ae Se eee eet Meg tet Sle tN ee il Se 4 


OPERATION: For a multiplication operation 
SLONE determines whether the operation may 
be performed by a shift instruction. For 
all operations SLONE determines whether the 
Operation may be performed in the register 
(or register pair) containing one operand 
or if the operand must be moved to another 
register (or register pair). SLONE also 
determines the result sign and attempts to 
arrive at the desired sign either by filing 
the complement of a constant storage 
operand in the symbol table or by determin- 
ing, when the register operand must be 
moved to another register, whether it 
should be moved with a load complement 
instruction. 


If the storage operand must be loaded 
into a register, SLONE determines whether 
the load may be performed with a load 
address instruction. 


CEKNB -- Determine Availability of Register 
for Multiplication (SELGM) 


SELGM is entered by SLONE to determine 
if an integer multiplication may be per- 
formed in a register pair which contains a 
given register, and by SLPOS to determine 
whether a multiplication may be performed 


in either of two register pairs. See Chart 
FT. 
ENTRIES: The entry point is CEKNB1. Eith- 


er parameter registers Pi and P2 contain 
the two given registers, or P1 contains the 
only given register and P2 contains -i. 


EXITS: Normal exit only. For each of the 
inputs in parameter registers P1 and P2, 
the output contained in the same register 
is either the input value if the corre- 
sponding register member may be used as the 
R1 field of an integer multiply instruc- 
tion, or is negative if the corresponding 
register number may not be so used. 


OPERATION: If either register contains a 
quantity of type Integer*#2, the register is 
disqualified only if it is globally 
assigned. If two registers are specified, 
neither is globally assigned, and they are 
an even/odd pair (e.g., 2/3 but not 7/8), 
neither is disqualified. 


If the register number is even, it is 
disqualified. If the register number is 
odd, and the even numbered member of the 
corresponding even/odd register pair neith- 
er is globally assigned nor contains an 
unstored common expression, the odd num- 
bered register is qualified. In the 
remaining case if the register number is 
odd and the even numbered member of the 
corresponding even/odd register pair is not 
globally assigned, but is an unstored com- 
mon expression, the qualification of the 
odd numbered register is postponed. 


After the registers presented as input 
to SELGM have been processed as above, each 
register will have been qualified or dis- 
qualified or will have had its qualifica- 
tion postponed. 


If no postponement of the qualification 
of a register has occurred, exit is made 
from SEIGM. If qualification of only one 
of the two registers has been postponed and 
the other register has been qualified, the 
former register is disqualified and exit is 
made. 


In the remaining case, qualification of 
both registers has been postponed, or there 
has been one postponement and one disquali- 
fication. If there is at least one remain- 
ing general register which is not globally 
asSigned and does not contain an unstored 
common expression, both input registers are 
disqualified, and exit is made from SELGM. 
Otherwise, SELSR is entered to select one 
of the registers which has not been dis- 
qualified (thereby storing its contents); 
if the other register has had its qualifi- 
cation postponed, it is now disqualified, 
and exit is made from SELGM. 


If only one register is to be considered 
by SELGM, its treatment may be found from 
the above discussion by assuming that it is 
one of two registers to be considered, the 
other of which has already been 
disqualified. 


CEKNA -- General Register Availability for 
Integer Divide (SELGD) 


SELGD is called by IDVDE when the 
numerator of a quotient is in a general 
register to determine whether the division 
may take place in the register pair con- 
taining the numerator. See Chart FU. 


ENTRIES: The entry is CEKNA1L. Parameter 
register P1 contains the register number of 
the numerator. P2 contains the register 
number of the denominator if the denomina- 
tor, too, is in a register; otherwise, it 
contains -1. 


EXITS: Normal exit only. 
ter Pi contains: 


Parameter regis- 





1. The register number of the numerator 
if division may take place in that 
register, or 


2- The complement of that number if divi- 
sion may not proceed there, or 


3. Four times that number if the divisor 
may proceed and numerator and 
denominator are in the same register. 


OPERATION: If the numerator and denomina- 
tor are in the same register, exit is made 
from SELGD. If they are not in the same 
register pair, the numerator is in an even 
register that is not globally assigned, and 
the next higher numbered register is not 
globally assigned and does not contain an 
unstored common expression, then SELGD 
indicates that division may proceed in the 
register pair containing the numerator. 
Otherwise, SELGD indicates that the numera- 
tor must be moved to another register pair 
before the division may take place. See 
Chart NF. 


CEKOC -- Operand Status Routine (KEY) 


KEY is called by the real and complex +, 
*, and / generators to determine the loca- 
tion (storage or register) of both operands 
of the current operation. See Chart FV. 


ENTRIES: The entry point is CEKOC1. Pa- 
rameter register P2 contains a pointer to 
the operator tree node whose operand loca- 
tions are to be determined. 


EXITS: Normal exit only. KEY returns in 
parameter registers the indicated switching 
code, the register number of each operand 
in a register, and the associated register 
Sign indicator. The left operand register 
number is right-justified in the left half 
of parameter register Pi. The right 
operand number is right-justified in the 
left half of parameter register P2. The 
register signs of the left and right 
operands are right-justified in the right 
halves of registers P1 and P2, 
respectively. 


OPERATION: KEY first processes the left 
operand. If it is a variable or constant, 
FNDAR or FNDFR is called to determine 
whether the operand is in a register. If 
the operand is a partial result, the deter- 
mination is made by examining its tree 
entry. If the operand is a common expres- 
sion or residue, the determination is made 
by examining the name table. With this 
information, KEY constructs a 2-bit switch- 
ing code with the first bit indicating the 
absence or presence of the left operand in 
a register and the second indicating simi- 
lar information for the right operand. For 
each operand in a register, KEY determines 
the register and sign from the correspond- 
ing MRM table. 


CEKOR -—- Single Operand Locating Routine 
(KEY1) 


KEY1 is entered to establish whether an 
operand is in a register or in storage, and 
to determine the operand's register/storage 
Sign. See Chart FW. 
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ere eee ere co ee ee a er a ee ee {oS a 7 
| Quantity | Pi | P2 j P3 | P4 | 
}------—--------- 4-------- }-------------------------- {------------------ $--------------- 4 
| Operator | 1 | Expression Tree | N/A | N/A | 
| | | Pointer | | | 
| | | | | | 
| Common | 2 | Name Table Pointer | N/A | N/A | 
| Expression | | | | | 
| | | | | | 
| Adcon | 3 | Symbol Table Pointer | N/A | N/A | 
| | | | | | 
| Variable | 5 | Symbol Table Pointer | Associated | Type Code | 
| | | to Covering Adcon | Displacement | | 
| | | | | | 
| Constant | 6 | Symbol Table Pointer | N/A | N/A | 
| | | | | | 
| Residue | 8 | Name Table Pointer | N/A | N/A | 
Riis ieee ate ieee oie ht Lie Siete eee aS i eine cipal eee Dh gee ee Sli J 
ENTRIES: Entry is to CEKOR1, with the there is no empty register. Otherwise, if 


operand tree address in parameter register 
P2. 


EXITS: Upon exit parameter register P2 
contains the operand's register number if 
any; parameter register P3 contains the 
register/memory sign; and parameter regis- 
ter P1 contains a 1 if the operand is ina 
register, a zero otherwise. 


OPERATION: KEY1 locates the operand by 
means of the FNDAR of FNDFR routines if the 
operand is a constant, variable, or adcon. 
If the operand is an operator, the informa- 
tion is obtained from the expression tree. 
If the operand is a common expression or 
residue, the information is obtained from 
the name table. If an operand is found to 
be in a register, the register number and 
register sign are returned, whether or not 
the operand may also be in storage. If an 
operand is not found to be in a register, 
it is assumed to be in storage; and, the 
Storage sign is returned. A variable, con- 
stant, or adcon in storage is assumed to 
have storage sign plus. 


CEKMR -- Search General Registers (FNDAR) 


FNDAR is used either to determine wheth- 
er a given quantity is in one of the gener- 
al registers or to determine whether there 
is at least one empty general register. 

See Chart FX. 


ENTRIES: The entry point is CEKMR1i. If an 
empty register is to be found, parameter 
register P1 must contain 0; otherwise, 
input is required in the parameter register 
aS above: 


EXITS: Normal exit only. If parameter 
register Pi is positive, its content is the 
register number containing the desired 
quantity or the number of an empty regis- 
ter. If P1 contains the value -40, the 
desired quantity is not ina register or 
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the content of P1 is negative, the absolute 
value of the content is the register con- 
taining the desired quantity, and the ex- 
pression sign of the quantity is negative. 


CEKMS -- Search Floating Registers (FNDFR) 


FNDFR is used either to determine wheth- 
er a given quantity is in one of the float- 
ing registers or to determine whether there 
is at least one empty floating register. 
See Chart FY. 


ENTRIES: The entry point is CEKMS1. If an 
empty register is to be found, parameter 
register Pl must contain 0; otherwise, 
input is required in the parameter regis- 
ters as shown in the diagram. 


EXITS: Only normal exit is made. If the 
content of Pil is not negative and less than 
8, it represents the register number con- 
taining the desired quantity or the number 
of an empty register. If P1 contains the 
value -40, the desired quantity is not ina 
register or there is no empty register. 
Otherwise, if P1 contains a negative num- 
ber, the absolute value of that number is 
the number of the register containing the 
desired quantity, and the expression sign 
is negative. In the System/360 computers 0 
has no distinct complement; therefore, if 
the register containing the negative ex- 
pression sign is register 0, parameter reg- 
ister Pi will contain plus 8. 


CEKMW -- Operand Processing Routine (OPND) 


OPND is called by the various arithmetic 
generators, or by the subroutine RSLT, at 
the statement processing level. It is 
called immediately after each reference to 
an expression tree entry, as the operand of 
a larger expression or as an operand from 
the statement level. Its purpose is to 
clear register storage and to release tem- 


\ 


porary storage assigned to a partial result 
or to a common expression which will not 
again be referenced. If the given operand 
is a subscript connector (:), processing is 
somewhat different. A reference to the 
subscripted variable is treated as a 
reference to the subscript expression which 
is said to be the operand. Further, for 
this purpose there are actually two kinds 
of subscript expressions -- depending upon 
whether the major operator of the subscript 
is a split (?) operator. The split opera- 
tor represents an addition (performed by 
use of hardware base-index addition) of two 
operands. In this case, OPND must treat 
both operands of the ? operator individu- 
ally, rather than the operand of the ;: 
operator by itself. See Chart FZ. 


ENTRIES: The entry points are CEKMW1, 
CEKMW2, and CEKMW3. The input is a pointer 
to the first byte of the operand represen- 
tation in the expression tree in parameter 
register P2. 

EXITS: Normal exit only. 

OPERATION: Processing varies with the 
class of operand presented -- variabie or 
constant, operator, common expression, and 
residue. 


Variable and constants require no pro- 
cessing, and exit is made immediately. 


Operators (partials) which are not sub- 
script connectors are processed as follows. 
If the tree “in storage" bit is set, the 
subroutine RLSWS is entered to reassign the 
associated temporary storage. If the “in 
register” bit is set, the specified regis- 
ter table entry is cleared. After this has 
been accomplished, exit is made. 


If the operator is a subscript connec- 
tor, its right operand is examined. If the 
right operand of the : is not a ?, and if 
it is an operator, it is processed as 
above, and exit is made; if it is a common 
expression, it is treated as described in 
the following paragraph; then exit is made. 
If the right operand of the : is a ?, each 
of its operands is processed as described 
immediately above before exit is made. 


If the given operand is a common expres- 
sion or residue, the "last use” bit of the 
corresponding name table entry is tested. 
If it is not set, no further action is 
taken, Since the last use of this expres- 
sion does not occur in the present state- 
ment. If, however, the bit is set, the 
count field of the name table entry is 
reduced by 1. If it has not reached zero, 
no further action is taken. Otherwise, 
register storage and temporary storage are 
released by use of the name table “in 
storage" and “in register” bits, in the 


same manner as they were used in the opera- 
tor processing. When this is complete, the 
name table entry is cleared, and exit is 
made. 


CEKMY -- Result-Register Operand Processing 
Subroutine (RSLT) 


RSLT is entered by the various arithme- 
tic generators as a substitute for entering 
OPND. RSLT is called when the operand par- 
ticipating in an operation is in the regis- 
ter which is destined to contain the result 
of the operation; that is, the operand is 
in the "to” register. The purpose of this 
routine is to ensure that if the "to" reg- 
ister contains an active common expression, 
that expression will either be moved to 
another register or stored, provided it is 
not already in storage. Since RSLT calis 
upon COVER, which may be required to load a 
temporary-covering adcon, the status of the 
noselectable bits of the result register 
and any other register specified as input 
parameters will be saved on entry to RSLT, 
then set to nonselectable, and restored 
immediately before exit. This is done to 
ensure that the register selected for 
temporary-cover, if any, will not be one 
containing either of the operands of the 
current operation. See Chart GA. 


ENTRIES: The entry point is CEKMY1. RSLT 
expects two parameters: The first is a 
tree pointer to the operand to be protected 
from the operation about to be performed, 
in parameter register P2. The second is 
the register number of another register to 
be protected against loading with temp 
cover, in parameter register P1. If Ris 
the given register number, R is interpreted 
as follows: 


If 1<R<15, then R is the corresponding 
general register. 


If R = 0 (applicable only to the 

second parameter), then no protection 

is required. 
EXITS: Normal exit only. 
OPERATION: On entry, the status of the 
operand nonselectable indicator is manipu- 
lated as described above. Now OPND is 
called. Upon return, if the operand is not 
a common expression, it is a nonactive com- 
mon expression, or if it is an active com- 
mon expression already in storage, the non- 
selectable indicators are restored, and 
exit is made. Otherwise, if the operand is 
not of complex or real type, FNDAR is 
entered to determine if there is an empty 
general register. If there is, the common 
expression is moved to that register by an 
RR-load instruction, and ASAR is entered to 
assign the expression to the register. If, 
however, the type is real or complex or 


Section 6: Phase 4 179 


there is no empty register, FNDWS is 
entered to assign temporary storage; the 
assignment is entered in the name table; 
COVER is entered to cover the temp; and, 
the operand is stored. Now, in either 
case, the status of the nonselectable bits 
is restored, and exit is made. 


CEKNG -- Select Single General Register 
(SELSR) 


SELSR is entered to select a specified 
general register, to select any register in 
an optimal manner, or to select in an 
optimal manner any register from a speci- 
fied restricted set of registers. See 
Chart GB. 


ENTRIES: The entry point is CEKNG1. One 
or two parameters may be entered in parame— 
ter registers Pl and P2. However, if only 
one parameter is entered, it must be in Pi, 
and P2 must contain 0. Specification of 
the register to be selected must be desig- 
nated only in register Pi. If no specifi- 
cation of or restriction on the register to 
be selected is desired, register P1 must 
contain 0, in which case the contents of 
register P2 are irrelevant. Otherwise, 
specifications and restrictions are made in 
either of or both registers P1 and P2 as 
follows: 


Se ae oe nee ie ea a =A 

{Value (V)| Meaning | 

eee ae el a eae ad 

| 1<v<15 |V = Reg. No. Do not select | 
jthis register. 
| 

16 {Do not select register 1, 14, 

Jor 15, and in the course of 
|selection, do not move any 
{quantity into register 1, 14, 
Jor 15. 
| 

~15<V<-1 |V = -(Reg. No.) Select regis- 


jter number |Vj|. In the course 
Jof selection, do not move any 
[quantity into register 1, 14, 
Jor 15. 

-30<V<-16|V = -15- (Reg. No.) Select 
{register number |V|-15. 

Pies Doe ee oe ee ee 


FR cerns eee ems comes eee seme eee sina came SRN ees seem SY cha 
bere eee came: SEY caus SREP GD SN qemmm GEE ge pane SN CS cee SD 


EXITS: Normal exit only. Parameter regis- 
ter P1 contains the number of the register 
selected. 


OPERATION: SELSR associates with each reg- 
ister a weight which is determined from the 
corresponding MRM table entry as follows: 
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Se Ce ee 
|Weight | Register Contents | 
| Assigned | | 
{Register empty 

|Constant smaller than 4096 
jConstatn greater than 4095 

| Variable 

{Stored common expression 

| BASR-generated address 

| Adcon 

| Unstored common expression 
{Operator (partial result) 
{Register not selectable (either 
| because the MSL or MGBL flag of 
jthe MRM Table entry is raised, 
jor because an input parameter to 
|SELSR had disqualified the 

| register). 


Ce re re ee ee 
ORPNWEYNADAN DO 
re eee eee Se eee SS eres SU cee eee EE ease eee aha 


! 
{ 
| 
| 
| 
| 
F 
| 
| 
1 
! 
| 
{ 
| 
1 
| 
| 
| 
l 
| 
! 
| 
| 
| 
{ 
| 
| 
| 
| 
! 
{ 
{ 
| 
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| 
! 
! 
| 
{ 
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If there has been no request for selec- 
tion of a specific register, the register 
with the greatest weight is chosen. If two 
or more registers have the same weight and 
that weight is greater than 6, the register 
with the smallest register number is chos- 
en; however, if the smallest register num- 
ber among the two or more equally weight 
registers is 1, then the next higher num- 
bered register with the same weight is 
taken. If a request for a specific regis- 
ter has been made, that register is chosen, 
regardless of its relative weight. 


If the chosen register has a weight 
greater than 2, the routine FLUSH is called 
to reset the register storage for all quan- 
tities in the chosen register and to 
initialize the corresponding MRM Table 
entry. The initialization causes the 
entire MRM table entry to be cleared except 
for the MSL and BUSY flags which are left 
raised. 


If the chosen register has a weight 
equal to either 1 or 2, the entire set of 
register weights is examined to determine 
if there is an empty register (weight = 9). 
If there is an empty register, FLUSH is 
called to transfer the register contents to 
storage, to transfer the corresponding MRM 
table entry contents from the chosen regis-— 
ter to the empty register, and to initia- 
lize the chosen register. An LR instruc- 
tion is generated to move the contents of 
the chosen register. If there is not an 
empty register, FNDWS is called to assign a 
temporary to the quantity in the chosen 
register. The MRM Table is searched to 
find an adcon which covers the temporary 
assigned. If there is such an adcon, an 
instruction is generated to store the chos- 
en register. If there is no temporary- 
covering adcon in a register, the register 
weights are examined, the largest weight 
which exceeds 2 is chosen, and the 
temporary-covering adcon is loaded into 


that register and assigned to the corre- 
sponding MRM Table entry. The chosen reg- 
ister is then stored and its MRM Table 
entry initialized. If, however, no regis- 
ter contains such an adcon and no register 
weight exceeds 2, an escape mechanism is 
used. 


A Load Register instruction is generated 
to move the contents of the chosen register 
to register 0. The temporary-covering 
adcon is loaded into the chosen register 
and used from there to cover the store of 
register 0 into temporary. Finally, FLUSH 
is called to initialize the chosen 
register. 


CEKNH ~~ Select Even/Odd General Register 
Pair (SELDR) 


SELDR is entered to select optimally an 
even/odd pair of general registers. See 
Chart GC. 


ENTRIES: The entry point is CEKNH1. Pa- 
rameter registers P1 and P2 may be used to 
specify as many as two registers that must 
be excluded from consideration in the 
selection process. Each of the parameter 
registers must either contain 0, indicating 
no exclusion, or a number greater than 0 
and less than 16, indicating that the cor- 
responding general register should be 
excluded. 


EXITS: Normal exit only. Parameter regis-— 
ter P1 contains the number of the even 
member of the selected even/odd register 
pair. 





OPERATION: A weight is assigned to each 
register in accordance with its contents. 
The weights are then combined in pairs to 
give a combined weight for each even/odd 
register pair. If a member of any pair has 
been excluded from consideration, the pair 
is given weight 0. The register pair with 
the largest combined weight is selected. 
SELSR is invoked to select specifically 
each member of the pair, thereby making the 
pair available for use. 


CEKMQ -- Select Floating Register (SELFR) 


SELFR is used to select a floating-point 
register or to select a pair of floating- 
point registers (either registers 0 and 2 
or registers 4 and 6). See Chart GD. 


ENTRIES: The entry point is CEKMO1. Pa- 
rameter register P1 contains a number which 
indicates the kind of selection desired: 


Value in 
P1 (Vv) Meaning 
O<V<6 Select register number V. 
10<v<i4 Select register pair (V-10)/(V-8). 
V = 16 Select either register pair. 
v= 18 Select any one register. 
EXITS: Normal exit only. Parameter regis- 


ter Pi contains the number of the register 
selected or the number of the lower- 
numbered member of the register pair 
selected. 


OPERATION: If a specific register is 
requested, SELFR determines whether that 
register, or the register pair containing 
that register, must be stored. If storing 
is not necessary, the register storage is 
cleared, and the MRMFR table entry is 
initialized by raising its MSL and BUSY 
flags and clearing the rest of the entry. 
If the registers must be stored, temporary 
storage is assigned to the quantity in the 
register and instructions are generated to 
perform the storage. 


If no choice of registers has been spec— 
ified, SELFR assigns weights to each reg- 
ister according to its contents and either 
chooses the single register having the 
highest weight or the register pair having 
the highest combined weight, as appropri- 
ate. The selected registers are then 
treated as if they were specifically 
requested, as described above. 


CEKMM -- Make Initial Assignment to General 
Register (ASAR) 


ASAR is used to record in an MRM table 
entry the assignment of a quantity to the 


corresponding general register. See Chart 
GE. 
ENTRIES: The entry point is CEKMM1. Pa- 


rameter registers P1 through P6 contain the 
following: 


P1 Register number to be assigned. 


P2 Expression tree ID of quantity 
being assigned (or 4 if the quan- 
tity being assigned is an address 
generated with a BASR 
instruction). 


P3 Expression sign. 

P& Pointer to name table, expression 
tree, or symbol table, according 
to ID. 


P5 Displacement -- applicable only if 
quantity is a variable. 


P6 Type -- applicable only if quanti- 
ty is a variable. 
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EXITS: Normal exit only. Parameter regis- 
ter P6 contains the address of the MRM 
table entry that ASAR made. 


OPERATION: ASAR sets the MRM table initial 
entry fields to the ID of the quantity to 
be assigned and clears the MSL flag. In 
addition, the register storage entry is 
made in the name table or expression tree 
if the quantity being assigned is either a 
common expression or an operator, 
respectively. 


CEKMN -- Make Synonym Assignment to General 
Register (ASARS) 


ASARS is used to record the assignment 
of a quantity as a synonym entry for a 
given general register. See Chart GF. 


ENTRIES: The entry point is CEKMNi. Pa- 
rameter registers P1 through P6 contain the 
following: 


P1 Register member to be assigned. 


P2 Expression tree ID of quantity 
being assigned (or 4 if the quan- 
tity being assigned is an address 
generated with a BASR 
instruction). 


P3 Pointer to name table, expression 
tree, or symbol table, according 
to ID. 


P4& Expression sign. 


P5 Displacement -- applicable only if 
quantity is a variable. 


P6 Type -- applicable only if quanti- 
ty is a variable. 


EXITS: Normal exit only. Parameter regis-— 
ter P6 contains the address of the MRM 
table entry that ASARS made. 


OPERATION: ASARS sets the fields of an MRM 
table synonym entry to the ID of the quan- 
tity to be assigned. If there is an inac- 
tive synonym entry, the first synonym entry 
is used. In the latter case, the register 
storage is cleared for the quantity being 
replaced. 


CEKMO -- Make Initial Assignment to 
Floating-Point Register (ASFR) 


ASFR is used to record in an MRMFR table 
entry the assignment of a quantity to the 
corresponding floating-point register. 


ENTRIES: The entry point is CEKMO1. Pa- 


rameter registers P1 through P6 contain the 
following: 
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Pi Register number to be assigned. 


P2 Expression Tree ID of quantity 
being assigned (or 4 if the quan- 
tity being assigned is an address 
generated with a BASR 
instruction). 


P3 Pointer to name table, expression 
tree, or symbol table, according 
to ID. 


P4 Expression sign. 


P5 Displacement -- applicable only if 
quantity is a variable. 


P6 Type -- applicable only if quanti- 
ty is a variable. 


EXITS: Normal exit only. Parameter regis- 
ter P6é contains the address of the MRMFR 
table entry that ASFR made. 





OPERATION: ASFR sets the MRMFR table ini- 
tial entry fields to the ID of the quantity 
to be assigned and clears the MSL flag. In 
addition, the register storage entry is 
made in the name table or expression tree 
if the quantity being assigned is either a 
common expression or an operation, 
respectively. 


CEKMP -- Make Synonym Assignment to 
Floating Register (ASFRS) 


ASFRS is used to record the assignment 
of a quantity as a synonym entry for a 


given floating-point register. See Chart 
GG. 
ENTRIES: The entry point is CEKMP1i. Pa- 


rameter registers P1 through P6 contain the 
following: 


P1 Register number to be assigned. 


P2 Expression tree ID of quantity 
being assigned (or 4 if the quan- 
tity being assigned is an address 
generated with a BASR 
instruction). 


P3 Pointer to name table, expression 


tree, or symbol table, according 
to ID. 

Py Expression sign. 

P5 Displacement -- applicable only if 


quantity is a variable. 


P6 Type -- applicable only if quanti- 
ty is a variable. 


EXITS: Normal exit only. Parameter regis- 
ter P6é contains the address of the MRMFR 
table entry that ASFRS made. 





OPERATION: ASFRS sets the fields of an 
MRMFR table synonym entry to the ID of the 
quantity to be assigned. If there is an 
inactive synonym entry, the first such 
entry is used. If there is no inactive 
synonym entry, the first synonym entry is 
used. In the latter case, tne register 
storage is cleared for the quantity being 
replaced. 


CEKMT -- Find Temporary Storage (FNDWS) 


FNDWS is entered to locate and reserve a 
given number of bytes of object program 
temporary storage. Inn bytes are 
requested, the first of the n contiguous 
bytes asSigned will be located at a byte 
address which is an integral multiple of n. 
See Chart GH. 


ENTRIES: The entry point is CEKMT1. Pa- 
rameter register P2 must contain a i, 2, 4, 
8, or 16 to indicate the number of bytes of 
temporary storage needed. 


EXITS: Normal exit only. Parameter regis- 
ter P2 contains a symbol table pointer to 
the adcon which must be used to cover a 
reference to the assigned temporary 
storage, and parameter register P3 contains 
the displacement to be used in conjunction 
with the adcon. 


OPERATION: Available temporary storage is 
found by searching the temporary storage 
allocation matrix for an n-bit field of O's 
which starts on a bit boundary location 
which is the smallest integral multiple of 
n. The field is filled with 1's, and the 
distance in bits from the origin of the 
matrix is computed. This distance repre- 
sents the relative byte address of the tem- 
porary storage location assigned. The 
relative address is converted to a page 
address and a displacement within that 
page. An address constant is filed to 
cover the page. The symbol table pointer 
for this adcon and the displacement are 
returned to the caller. 


The preceding discussion describes gen- 
erally the process for assignment of tem- 
porary storage. Actually one of two kinds 
of temporary storage may be assigned 
depending upon the status of the flag 
GLMODE. If the flag is raised, global tem 
porary storage is assigned; otherewise, 
local temporary storage is assigned. 


The GLMODE flag is tested by FNOWS which 
simply decides whether to search the local 
or global half of the temporary storage 
allocation matrix and whether the address 


constant created should cover the local or 
global temporary storage class. 


CEKMX -- Release Temporary Storage (RLSWS) 


RLSWS is entered to make a temporary 
storage location available for reuse. 
Chart GI. 


See 


ENTRIES: The entry point is CEKMX1. Pa- 
rameter register Pi contains a 0 if the 
temporary location being released was occu- 
pied by an operator, or a1 if it was occu- 
pied by a common expression. Accordingly, 
parameter register P2 contains the asso- 
ciated expression tree address or name 
table address. 

EXITS: Normal exit only. 

OPERATION: The adcon pointer, its asso- 
ciated displacement, and the operand type 
are extracted from the name table or ex- 
pression tree. The adcon pointer is fol- 
lowed to the associated symbol table entry 
from which the storage class covered by the 
adcon and the location within that storage 
class are extracted. 


If the storage class covered is global 
temporary, no further action is taken, and 
RLSWS exits. If the storage class is local 
temporary, a group of bits in the temporary 
storage allocation matrix is cleared. The 
first of these bits is determined from the 
sum of the displacement and address covered 
by the adcon. The number of bits cleared 
is determined from the operand type. 


Two temporary locations are released in 
the above manner if the operand is a common 
expression and the name table flag "secon- 
dary temp assigned" is raised; otherwise, 
only one temporary location is released. 


CEKON -- Register Storage Clear Routine 
(FLUSH) 


FLUSH is invoked to initialize a given 
MRM table entry or to move it from one 
entry to another before initializing it. 
See Chart GJ. 


ENTRIES: The entry point is CEKON1. The 
contents of parameter register P3 are 
treated as follows: 
Contents Action 
0 Initialize a general register. 
1 Move, then initialize general 
register. 
2 Initialize a floating-point 
register. 
3 Move, then initialize a 


floating-point register. 
Parameter register P2 may contain either 
the number of the register whose MRM/MRMFR 
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Table entry is to be initialized or the 
address of the entry, as desired by the 
caller. Parameter register P1 is irrele- 
vant if P3 = 0 or 2; otherwise, it contains 
the number of the register to which a move 
is required, or the associated MRM/MRMFR 
address, again at the option of the caller. 


EXITS: Normal exit only. If only initia- 
lization is required, parameter register P6 
contains the MRM/MRMFR address of the reg- 
ister initialized. If a move and initia- 
lize are required, P6 contains the MRM/ 
MRMFR address of the register to which the 
movement will be made. 


OPERATION: The distinction between regis- 
ter number and MRM/MRMFR address for the 
input quantities is made according to 
whether their values are less than or 
greater than 16, respectively. Each, which 
is a register number, is converted to the 
corresponding MRM/MRMFR address. 


If a move is specified, the entire MRM/ 
MRMFR entry is moved as specified. If the 
register from which the move is made con- 
tains operators or common expressions, the 
corresponding register number fieids in the 
name table or expression tree entries are 
altered to reflect the new register 
location. 


If no move is specified and the register 
which is to be initialized contains opera- 
tors or common expressions, the correspond- 
ing “in register" flags in the expression 
tree or name table are lowered. 


Processing is completed by initializing 
the specified MRM/MRMFR entry. 


CEKNI -- Code File Output Subroutine 
(INSOT) 


INSOT is called whenever an entry is 
made in the code file. See Chart GK. 


ENTRIES: The entry point is CEKNI1. The 
input parameters to INSOT are 


1. ID in parameter register P2. 


2. OP (Line Number or SYMT with IDs 7 or 
8) in parameter register P1. 


3. All other parameters in a 6-word area 
at INSOTP (in phase‘s PSECT) in the 
order listed in Figure 34. Each 
parameter occupies one word and is 
right- justified. 
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, 






Branch-Displace- 
ment Supplied by 


OP, Mi, X2, B2, D2, SYMT, ADCON 

Phase 5 
7 “i ~ ‘ ” 
SYMT Label Definition 


SYMT 
Adcon 


4 
5 
7 








- Symbol Table Pointer for label or primitive 
- Symbol table pointer for Adcon 
Line Number- Source line number from PF entry 


All other symbols have the accepted System/360 meaning. 


Figure 34. INSOT Input Parameters 

If storage class is 7 or 8, the symbol 
table pointer points to the adcon covering 
the temp; otherwise, storage class field is 
0, and Phase 5 obtains actual storage class 
from the symbol table. 


EXITS: INSOT has two exits: one normal 
return and one error exit. The INSOTP area 
is undisturbed except for INSOTP +17. 


OPERATION: Based upon the contents of 
input parameters, INSOT generates the 
appropriate code file entry (given in 
Appendix A). INSOT also maintains the size 
of Storage Class 1 in the storage class 
table, and updates the code file top in 
intercom. Label definitions are not 
entered in the code file if the ISD, memory 
IhMap, and object listing options are all 
off. 


CEKOQ -- Edit for Code File (EDIT) 


EDIT may be used in preparation for 
generation of an RX-type instruction via 
INSOT. Its purpose is to centralize the 
preparation of some of the input parameters 
required by INSOT. 


ENTRIES: The entry point is CEKOQ1. Entry 
is made with the tree address of the 


operand in register P2. 


EXITS: Exit is made with the operation 
type code in parameter register P2. The 
ISYM entry of the INSOT paraneter list is 
set according to the following table: 


OPERATION: 


EDIT sets input parameters to 


INSOT according to the following table: 


Operand ID 
Constant 


Variable 
Adcon 
Operator 
CSX 


Subscript 
Connector 


Op- e 
RX 


RX 
RX 
temp. ref. 


temp. ref. 


ISYM Contents 

Symbol table 
pointer 

Symbol table 
pointer 

Symbol table 
pointer 

Temp-covering adcon 
pointer 

Temp-covering adcon 
‘pointer 

Variable symbol 
table pointer 
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SECTION 7: PHASE 5 


INTRODUCTION 


Phase 5 generates the output of the FOR- 
TRAN compiler. This output can broadly be 
divided into two parts: the object program 
module (OPM) and the external listings. 

The object program module consists of: 


1. Loading information (relocation fac— 
tors, external names, etc.). This 
information comprises the program 
module dictionary (PMD) and is used at 
load time by the dynamic loader. 


2. Object text (code, constants, etc.). 


3. An optional list, called the internal 
Symbol dictionary (ISD), of the 
internal symbols in the FORTRAN pro- 
gram for use in checkout with PCS. 


4. A list of external names (entry 
points, subroutine calls, etc.). 


The external listings are produced in 
accordance with options selected by the 
user. It should be noted that the first 
option (of the five listed below) must be 
requested in order to receive any of the 
other four. The selections ere: 


1. A basic output listing which consists 
mainly of the names and sizes of con- 
trol sections in the object program 
module. 


2. An expanded listing of the above to 
include items such as the relative 
locations of labels and variables. 


3. A comprehensive output that, in addi- 
tion to 1 and 2 (above), lists object 
code and give an assembly-like listing 
of the object code along with comments 
identifying what type item is being 
referenced. This selection also pro- 
duces a listing of adcons, parameter 
lists, and numeric and alphameric 
constants. 


4. A symbol table list which gives all 
the variable names in alphabetical 
order with important attributes. 


5. A cross reference list which gives all 
the variables listed in aiphabetical 
order, followed by the labels, in num- 
eric order, showing the line numbers 
where each is defined and referenced. 


Thus, the function of Phase 5 can be 
stated as: generating the OPM (i.e., con- 
structing the PMD, buiiding the object pro- 
gram, and producing the optionally selected 
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ISD) and producing various selections of 
external listings. These functions are 
itemized below, together with the routines 
that contribute to their development. 


1. Generating the object program module 


a. The program module dictionary. 

The program module dictionary con- 

Sists of heading information and 

one control section dictionary 

(CSD) for each control section in 

the object program. 

BUILD Processes the heading 
information in the PMD. 
COSEC Constructs the control 
section dictionary for the 
code control section. 
PRSEC Builds the control section 
dictionary for the proto- 
type control section. 

CMS EC Constructs one control 
section dictionary for 
each COMMON. 

SPECS Makes entries in the con- 
trol section dictionary of 
the control section con- 
taining any preset data 
present. 

b. The Object Program 

BUILD Determines the type of 
program under construction 
and initializes, communi- 
cates with other needed 
routines, and post- 
processes the object 
program. 


Builds one control section 
for each COMMON (named or 
blank) present. 


CMSEC 


SPECS Inserts preset data (when 
present) into the text of 
the appropriate control 


section. 


Constructs the code con- 
trol section which con- 
Sists of code and numeric 
constants. 


COSEC 


PRSEC Constructs the prototype 
control section. (The 
module PRSEC should be 
consulted if additional 


information is desired.) 
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module. Address pointers in the PMD are 
initially relative to the beginning of the 
PMD itself (not the PMD preface), except 
where otherwise specified. Some fields in 
the PMD are filled in by the loader. These 
are not set by the compiler. The PMD for- 
mat is shown in Figure 35. 


c. Internal Symbol Dictionary PMD Heading 
COSEC Determines statement num- 1. Length of PMD in bytes 
ber entries and the number 
of control sections in the This length does not include the PMD 
object program module and preface. 
enters them into the ISD. 
2. Diagnostic Code (1 byte) 
ASSIST Responsible for all 
entries in the ISD except The Diagnostic code indicates the 
for those made by COSEC. highest level diagnostic encountered 
during generation of the module by the 
2. Producing various selections of language processor that created it. 
external listings 
3. PCS Communication Indicator (1 byte) 
EDIT Optionally produces up to 
three levels of output This is a 1-byte field which is used 
documentation. The rou- by the program checkout subsystem | 
tine itself and Figure 35 (PCS). Currently defined settings are 
should be consulted if as follows (bits are numbered from 
more information is left to right starting with 0): 
desired. 
0 7 
SYMSRT Sorts and outputs an 
alphabetical listing of 
items in the symbol table 
along with important 
attributes relating to the 
symbol. Version 1D Flag 
PCS Communication Flag 
CRFSRT Produces a listing of all Link Editor Flag 
variables in alphabetical 
order, followed by the ISD Flag 
labels in numeric order, 
indicating the statement Bit 0 - Module has been altered by a 
numbers where each is non-source modification. That 
defined and referenced. is, a language processor did 
not make the change. 
PHEAD Ejects to a new page and 
outputs the page heading, Bit 1 - Module has an ISD associated. 
which consists of module This bit is set by the proces- 
name, data, and page num- sor creating the PMD. 
ber. PHEAD is called by 
the above three routines. Bit 2 - Module was produced by link 
editing. This bit is set by 
the Link Editor. 
OBJECT PROGRAM MODULE (OPM) Bit 3 - PCS is to be called before 
module is dynamically 
The output from the compiler is known as unlinked. This bit is set by 
an object program module. This is composed PCS. 
of a program module dictionary (PMD), text, 
and internal symbol dictionary (ISD), and Bit 5 - Module was produced by the 
external name list (ENL). FORTRAN compiler. 
Bit 6 ~- FORTRAN module is a main pro- 
PROGRAM MODULE DICTIONARY (PMD) gram, not a SUBROUTINE, FUNC- 
TION, or BLOCK DATA 
Each PMD consists of one PMD heading subprogram. 
plus as many control section dictionaries 
(CSD) as there are control sections in the Bit 7 - Version ID indicator. If this 


bit is set, the module version 
ID is to be interpreted as a 
64-bit binary number which is 
the creation date of the 
module. If this bit is not 
set, the version ID is eight 
alphameric EBCDIC characters. 
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The PMO 
Preface is 
Prefixed 
here by 
either 
STARTUP 
or the 
Dynamic 
Loader. 


PMD 
Heading 






Length of PMD in Bytes 




























0 
CcsD 
1 | Dies. Length of PMD Heading 
Code Heading in Bytes 
2 4 - Character |. D. Name For Deck 
Punchout 
3 Version ID 
4 of Module 
5 No. REFs for Entry NO. Mods. for 
Point Entry Point 
6 Alphameric Name 
7 of Module 
Definition 
Table 
8 Value of DEF 
DEF for 
R-Value Displacement 
9 Standard — Definition (s) 
(Created by LINK EDITOR) Entry ‘Potht Relative 
Absolute 
10 [CSD LINK] Complex 
iB (Reserved for Future Use) 
(Search Link] 
Alphameric Name 
[Value of REF ] 
REF (s) for 
Entry Point 
16 [R-Value of REF] 
Reference 
17 [CSD LINK] Table 


(Reserved for Future Use) 






Modifier (s) for 
Entry Point 













Number Bytes in CSD 
Length of Control Section 
in Bytes 
Page Number in Text of Page 0 
of CS Text 


Version ID 


[PMD Link] 
(No. REFs into this 
(Reserved) Control Section (user 
count) ] 
No. Relocatable No, Absolute 
DEFs DEFs 
No. of External and 
eee Internal REFs in 
Attributes of C.S. No. Pages of Text 


Reference Table 
Alphameric Name 









Value of DEF 
(Modified by Loader) 
R-Value Displacement 
(Modified by Loader) 
[[¢sb tink ] 
(Reserved for Future Use) 
[ Search Link | 






Alphameric Name 













Modifier Pointers 
for External REFs 










Modifier Pointers 
for Intemal REFs 

















Modifier 
Pointers for 
Complex DEFs 






No. Modifiers for Relative Location of First 
Page 0 of PMD Modifier for PMD Page 0 
No. Modifiers for 


Relative Location of First 
Page x of PMD Modifier for PMD Page x 
REF Number Byte 


No. Modifiers for Relative Location of First 
Page 0 of Text Modifier for Text Page 0 


No. Modifiers for Relative Location of First 
Page y of Text Modifier for Text Page y 


Relative Location of First 
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Length of PMD Heading 


This is the length in bytes of the PMD 
heading. 


4&-Character ID Name 


The 4-character ID name is supplied by 
the user to serve as deck identifica- 
tion if the module is punched into 
cards. This field is currently 

unus ed. 


Version ID 


See item 3 (bit 7 description) for 
interpretation of version ID. 


Number of REFs for the Standard Entry 
Point 


The DEF for the standard entry point 
is always treated as a complex DEF. 
This field contains the number of 
REFs. It may be zero. 


Number of Modifiers for the Standard 
Entry Point 


This field contains the number of 
modifiers that are to be used to com- 
pute the DEF for the standard entry 
point. 


DEF for Standard Entry Point 


This 7-word entry describes the DEF 
for the standard entry point of the 
module. It has the same form as the 
individual DEF entries within the 
CSDs. The standard entry point DEF 
for the module is considered to belong 
to the first PSECT of the module and 
is treated the same as a complex DEF 
whose ENTRY statement appears within 
that PSECT. If no PSECT is deciared, 
the standard entry point will be asso- 
ciated with the first CSECT instead. 
This DEF entry contains the following 
subfields which are described under 
"Control Section Dictionary." 


a. Alphameric name of module 
b. Value of DEF 

c. R-Value displacement 

d. CSD link 

e. Reserved for future use 
ff. Search link 


The alphameric name is also the name 
of the module. 


10. 


11. 


REF(s) for Entry Point 


These correspond to the REF(s) for 
complex DEFs within a CSD. 


Modifier(s) for Entry Point 


These correspond to the modifier (s) 
for complex DEFs within a CSD. 


Control Section Dictionary (CSD) 


The control section dictionary (see 
Figure 35 comprises the following 
components: 


1. 


2 


CSD 


1. 


CSD Heading 

Definition Table 

Reference Table 

Relocation Dictionaries (RLDs) 


Virtual Memory Page Table 


Heading 
Number Bytes in CSD 


This field specifies the length of the 
control section dictionary in bytes. 


Length of Control Section in Bytes 


This specifies the virtual storage 
Span of the control section. The 
length of the virtual storage page 
table is derived from this length. 

For example, if the length of the con- 
trol section is 8192, the virtual 
storage page table will contain two 
pages; but if the length is 8193 
bytes, the virtual storage page table 
wili contain three pages. This value 
will be equal to the highest location 
counter value assigned by the language 
processor, plus 1. 


Page Number in Text of Page 0 of CS 
Text 


The text for each control section in 
the module occupies an integral number 
of pages in its resident data set. 

The text pages for all control sec- 
tions in a module are contiguous. 

This number is the page number, rela- 
tive to the first page of text for 
this module, of the first page of text 
for this control section. (Numbering 
begins with 0.) 


Version ID 
This is a 64-bit binary number which 


is the creation date of the control 
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section expressed as the number of Cc. 
microseconds that have elapsed from 

March 1, 1900, until the time of con- 

trol section creation. 


PMD Link 


The PMD link is filled in by the load- 
er. It points to the beginning of the 
PMD preface. 


Number of Implicit References to this 
Control Section (User Count) a. 


This is a count of the number of REF 
entries which refer to this control 
section and are linked to this CSD 
through their CSD link. It is com- 
puted by the loader. It includes both 
external and internal references. 


Number of Relocatable Definitions 
This is the number of relocatable 
definitions in the definition table. 
It is always at least 1, namely, the 
control section DEF. 


Number of Absolute Definitions 


This is the number of absolute defini- e. 
tions in the definition table. It may 
be zero. 


Number of Complex Definitions 


This is the number of complex defini- 
tions in the definition table. It may f. 
be zero. 


Number of References from this CSD 


This is the sum of external and 
intermal references in the reference 
table. It may be zero. 


Attributes 


has one bit set for each 
possessed by the control 
section. Currently defined attributes 
are shown below. Bits are numbered 
from left to right starting with 0. 
Bit 15 is not used: 


This word 
attribute 


a. Fixed-Length (Bit 14 off) 


A fixed-length control section 
will be allocated a fixed number 
of pages at load time. 


b. Variable-Length (Bit 14 on) 


A variable-length control section 
is a section of indeterminate 
length and will be allocated pages 
in excess of the length stated in 
the CSD heading. 


Read-only (Bit 13 on) 


Read-only specifies that the con- 
trol section may not be stored 
into. It causes storage protec- 
tion by means of a storage class B 
assignment to all pages of the 
control section. Non-read-only 
and nonprivileged control sections 
are assigned storage class A. 


Public (Bit 12 on) 


Control sections are not shared by 
control section name alone. A 
PUBLIC control section of a module 
residing in a given data set 
(library) is shared if another 
user has access to the same data 
set and module. Control sections 
of a given module need not all be 
PUBLIC or non-PUBLIC. Fixed- 
length PUBLIC control sections 
with the same attributes are 
assigned storage in the same as- 
Signment. A PUBLIC control sec- 
tion should never contain relocat- 
able adcons (A, V, or R type). 


PSECT (Bit 11 on) 


If this bit is set, the dynamic 
loader overrides the system pack- 
ing indicator and inserts this 
control section as packed. 

COMMON (Bit 10) 

A COMMON section is a control sec- 
tion common to all modules in 
which it is declared. COMMON sec- 
tions are more fully discussed in 
the linkage editor manual and the 
assembler manual. 


COMMON sections are of two types: 


(1) Named COMMON sections (those 
with a name not all blanks). 
These are treated as fixed- 
length sections. 

(2) Blank COMMON sections, whose 

name consists of eight blanks. 


FORTRAN blank COMMON is assigned 
the VARIABLE and COMMON attributes 
by the FORTRAN compiler. 


The treatment of blank COMMON sec- 
tions differs from that of blank 
non-COMMON sections. Control sec- 
tion rejection is instituted 
between blank COMMON sections of 
different modules whereas blank 
non-COMMON sections of different 
modules are treated as independent 


control sections. The latter are 
called unnamed control sections. 


g- Privileged (Bit 9 on) 


A control section with a privi- 
leged attribute is assigned 
Storage key C which provides fetch 
as well as store protect. This 
attribute overrides read-only. 


Anything in a privileged control 
section may be referenced only 
when the PSW key is zero. 


h. SYSTEM (Bit 8 on) 


Any external symbol that appears 
in a control section which has the 
SYSTEM attribute cannot be 
referenced by a user program 
unless the symbol begins with 
"SYS". Conversely, no reference 
from a control section with a sys- 
tem attribute may be to a “user” 
symbol. 


i. Public Name (Bit 0 on) 


This is used only by the dynamic 
loader to specify nonblank control 
sections whose names appear in the 
SDST (shared data set table). The 
first such control section will 
appear in the SDST under the 
module name. A control section 
may be indicated as both having a 
public name and rejected. 


12. Number of Pages of Text 


This specifies the number of pages of 
text for this control section in the 
data set. It should be noted that 
this generally does not correspond to 
the number of pages in the virtual 
storage page table. It cannot, of 
course, be larger. 


Definition Table 


The definition table is made up of 7- 
word entries, one for each external defini- 
tion in the current control section. 
Definitions are grouped as relocatable, 
absolute, and complex in that order. The 
first definition in the table is the name 
of the current control section. 


Relocatable definitions are external 
definitions whose values may be computed as 
the sum of the origin of the control sec— 
tion wherein they appear, and a constant. 


An absolute definition is an EQU item 
with an absolute value whose name has been 


declared an entry point in the control sec- 
tion in which the name is defined. 


A complex definition is either an EQU 
item with a complex relocatable value; 
i.e., containing external symbol(s), ora 
Simple relocatable definition whose ENTRY 
statement appeared within a named section 
other than the section in which it is 
defined. The definition entry appears 
within the CSD of the control section which 
contains the ENTRY statement. (Note that 
the origin of the same control section is 
the R-value for the DEF.) The complex DEF 
is required in this case, with one REF 
entry that names the control section in 
which the DEF symbol is actually defined. 


Each DEF in the definition table con- 
tains the following entries: 


1. Alphameric Name of DEF 


This field contains the 8-character 
alphameric name of the DEF. 


2. Value of DEF 


The value of the DEF is set by FORTRAN 
and is modified by the loader in the 
case of complex and relocatable 
definitions. For relocatable DEFs the 
value portion of the definition entry 
contains the displacement value of the 
symbol relative to the base of its 
control section. 


For absolute DEFs this entry contains 
the absolute value; for complex DEFs 
it contains the absolute portion of 
the DEF value, which may be zero. 


3. R-Value Displacement 


The “displacement for R-value" word 
contains the displacement of the orig- 
inal defining control section origin 
with respect to the head of the con- 
trol section within the definition now 
appears. This is required to compute 
valid R-values for control sections 
which have been COMBINED by Linkage 
Editing. In creating the PMD, only 
the Link Editor will ever produce a 
nonzero value in this word. 


4. CSD Link 


The CSD link is initially zero. It is 
filled in by the loader when the con- 
trol section is loaded as a pointer to 
the beginning of the CSD in which this 
DEF appears, providing neither the DEF 
nor the control section has been 
rejected. 


5. For future use. 
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6. Search Link 


This field is filled by the hash 
search routine of the loader. It con- 
tains the address of the beginning of 
the next DEF entry which hashes to the 
same value. It contains zero if 
thereare no more DEFs with the same 
hash value in this chain. 


Reference Table 


The reference table is made up of 6-word 
entries, one for each external symbol 
referenced within the control section. 

Each entry contains the following: 


1. Alphameric Name of REF 


This field contains the 8-character 
alphameric name of the REF. 


2. Value of REF 


This is filled in by the loader. It 
contains the value of the DEF to which 
the REF refers. If the DEF is unde— 
fined, it contains the address of a 
portion of virtual storage wherein 
reference is illegal. 


3. R-Value REF 


This is filled in by the loader. It 
contains the virtual storage address 
of the beginning of the control sec- 
tion wherein the DEF appears. This 
value is obtained from the "R-value 
displacement" word of the satisfying 
DEF entry. 


If the DEF is undefined, this word 
contains the address of a portion of 
virtual storage wherein reference is 
illegal. 


4. CSD Link 


This pointer, initially zero, is 
filled by the dynamic loader. It 
points to the beginning of the CSD 
wherein the DEF which defines this REF 
appears. If a corresponding DEF could 
not be found upon the appearance of a 
REF, the CSD link is to the beginning 
of the CSD wherein the REF itself 


appears. 


5. Reserved for future use. 
Relocation Dictionary (RLD) 
Three RLDs appear in each control sec- 


tion dictionary: 
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1. RLD for complex definitions 
2. RLD for internal references 
3. RLD for external references 


Each RLD has the same format consisting 
of modifier pointers and modifiers. The 
RLD for complex definitions differs in that 
pages mentioned in this table are pages of 
the PMD rather than the text. 


Modifier Pointer 


Modifier pointers are used to designate 
the application of modifiers to adcons on 
appropriate pages of text (or of the PMD 
for complex DEFs). The first modifier 
pointer applies to the first page; the 
second modifier pointer, to the second 
page; etc. For an RLD there always exists 
at least one modifier pointer. However, 
there need not necessarily be a modifier 
pointer for each page of text; the modifier 
pointers may be ended at the last text page 
for which there exists any modifier. 


The modifier pointers consists of two 
fields, in the left and right halfwords. 
Left-half - Number of modifiers for page 

This field contains the number 


of modifiers that apply in 
this page. 


Right-half - Location of first modifier for 
this page 


This contains the location in 
bytes relative to the right 
half of the pointer itself for 
the first modifier for this 
page. If there are none, it 
points to the location where 
one would have appeared if 
there were any. 


A special note should be made 
of the technique for determin- 
ing the length of an RLD. In 
the right half of the first 
pointer for an RLD, is the 
location of the first modifier 
for this page. In the word 
preceding the first modifier 
word is the last modifier 
pointer for the RLD. By 
adding the location of the 
right half (of the last point- 
er) to the contents of the 
right half (of the last point- 
er), one gets the beginning of 
the last set of modifiers. 
Adding to this four times the 
number of modifiers in the 
last set, one gets the end of 
the RLD. 


Modifier 


The modifiers are each a fullword and 
are divided into four fields: 


0 2 16 20 31 

CS or ee ee oa 

| L | Ref. Number {| T | Byte | 

ac a te 
2 14 4 12 

L 


L (2 bits) is the length in bytes of 
the adcon to be modified. A value of 
zero indicates a fullword (4 bytes). 


Ref Number 
Reference number (14 bits) is the 
ordinal number in this CSD's reference 
table of the reference whose defini- 
tion value is to be used in modifying 
the adcon. References are numbered 
starting with zero. 


T (4 bits) is the operation to be per- 
formed in modifying the adcon by the 
reference value. 


The values of T currently defined are as 
follows: 


a. Addition (T = 1) 


The definition value of the 
reference at “Reference Number" is 
added to the field of L bytes 
starting at the indicated byte of 
the page to which the modifier 
applies. 


b. Subtraction (T = 2) 


Same as addition, except read 
"subtracted from™ for “added to." 


c. R-value (T =3) 


The value from the “R-value” word 
of the REF is stored into the 
field of length L according to the 
"Byte" field. 


Byte 
Byte (12 bits) is the displacement in 
bytes (from the origin of its original 
containing page) of the adcon to be 
modified. It should be noted that 
Since PMDs are packed to word boun- 
daries, this displacement will be 
added to an address for complex DEFs 
which generally is not a page 
boundary. 


RLD for Complex Definitions 


The format of these modifiers is as 
described above. These modifiers apply to 


the values of complex definitions; that is, 
the byte addresses in the modifier will be 
to the value words of complex DEF entries 
in the definition table, and the page num- 
bers in the modifier pointers are for pages 
of the program module dictionary itself. 


RLD for Text External Reference 


This relocation dictionary is in the 
same form as described above. It has one 
pointer for each page of program text up to 
that text page which is the last to contain 
an adcon, and appropriate modifiers for 
each adcon in the text which refers to a 
symbol defined externally to this module. 
The page numbers are based on the first 
page for this control section, beginning 
with 0. 


RLD for Text Internal Reference 


This is identical to RLD for text 
external reference above, except that the 
modifiers are to adcons in the text which 
reference symbols defined within this 
module, such as control section names. 
This permits communication between control 
sections of the same module that may be 
allocated noncontiguous virtual storage. 


Virtual Memory Page Table (VMPT) 


This table has a halfword for each page 
of virtual storage beginning with page 0 
and continuing upward in order. 


The contents of each entry will be 
either: 


1. All bits if the corresponding page is 
empty as a result of a DS or ORG 
statement. 


2. The number of the page in the text 
relative to the beginning of text for 
this control section if the page con- 
tains code or data. This value multi- 
plied by 4 becomes an index into both 
the external and internal RLDs and is 
used to select the correct modifier 
pointer word for adcon relocation. 


This table is the means by which the 
text of the control section is related to 
the virtual storage assigned the control 
section. This is necessitated by the fact 
that language processors do not necessarily 
output a byte of text for each byte of vir- 
tual storage assigned; that is, large ORG 
and DS statements may result in pages of 
text being skipped. 


If, for example, a source program were 
to begin with 


ORG 10000 
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there would be no text output for the first 
two pages of virtual storage, and the first 
page of text would correspond to the third 
page of the user's virtual storage. The 
first two VMPT entries would be all bits, 
and the third would contain zero. Within a 
page, however, the bytes of text correspond 
directly to the bytes of virtual storage. 
Thus, in the example above, the first page 
of text would represent virtual storage 
locations 8192-12287, and the first 1808 
bytes of the page of text would be vacant 
(10000-8192 = 1808). The pages of text 
will always begin on page boundaries within 
the text module. 


INTERNAL SYMBOL DICTIONARY (ISD) 


The ISD (see Figure 36) has four sec- 
tions: a heading, Section name table, sta- 
tement number table, and a symbol table. 


Heading 

Word 1 - Bits 0-15 contain the indica- 
tor (8) identifying the ISD as 
FORTRAN produced. 

Word 2 - The length of the ISD in 
bytes. 

Word 3 - Contains a link to the start 
of the symbol table. 

Word 4 - The number of entries in the 
section name table. 

Word 5 - The number of entries in the 
statement number table. 

Word 6 - The number of entries in the 


Symbol table. 
Section Name Table 


All control section names and their ver- 
sion identifications (CSECT, PSECT, labeled 
and blank COMMONs) are listed here. The 
last two entries are the CSECT and the 
PSECT. 


Statement Number Table 


For each executable statement in the 
program, FORTRAN inserts an entry contain- 
ing the statement number and the offset 
from the CSECT base. Entries for unnum- 
bered statements contain a statement number 
of zero. The entries are arranged in 
source order. 


Symbol Table 


The FORTRAN compiler inserts into the 
symbol table a defining item for all 
variables, section names, and FORMAT state— 
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Figure 36. 


ment numbers. 
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Number of Length of this Entry 
Dimensions 


Relative Location within 
Control Section 
























FORTRAN Internal Symbol 
Dictionary 


Entries are grouped accord- 


ing to control section and are ordered 
within each group by ascending location 
counter value. 


Name 


Type 


- Two words containing the 
alphameric name of the 
variable. 


- Identifies the type of 
variable as: 


Type Code 
Section Name 3 
Integer 4 
Real Number 5 
Character Constant 6 
(FORMAT) 

Complex Number 13 
Logical 14 


In addition the second high-order list 
in the TYPE field indicates if the variable 
is a formal argument. Thus, a type code 
"45" designates the appearance of a real 
variable as a formal argument. 


Number of - The number of dimensions 

Dimensions of a dimensioned variable 
(0 for nondimensioned 
Variables). 


Length of - Length in bytes for this 
Entry symbol entry. 


Section Number A number corresponding to 
the order of the names in 
the section table of the 


ISD. 


Displacememt The offset in bytes from 


the control section base. 


Length - Length attribute of the 
variable. 


Dimension - "00° for constant 
Type dimension '02'° for adjust- 
; able dimension of type 
Integer* 2 
"O04" for adjustable dimen- 
sion of type Integer*#4 


Dimens ion - For each dimension of an 
array the dimension pro- 
duct value is listed. The 
value of the nth dimension 
factor is the byte length 
times the product cof the 
sizes of dimensions 1 
through n. For arrays 
that are formal arguments 
the dimension factor is: 


1. The dimension itself, 
if constant. 


2. Offset in bytes of the 
appropriate adcon from 
the base of object 
program's PSECT, if 
adjustable. 


ROUTINE DESCRIPTIONS 


Phase 5 routines bear mnemonic titles as 
well as coded labels. The 5-character 


coded labels begin with the letters CEKS; 
the fifth letter identifies a specific rou- 
tine. Each of the routines in Phase 5 has 
a Single entry point. When reference is 
made to a compiler executive routine or 
entry point, the mnemonic title is used, 
followed immediately by the corresponding 
coded label enclosed with parentheses. 


There are no hardware configuration 
requirements for any of the Phase 5 rou- 
tines. They are all reenterable, nonresi- 
dent, nonprivileged, and closed. PHASE5 
(Output Generator -- CEKSA) is entered by 
standard linkage; all other Phase 5 rou- 
tines are entered by restricted linkage. 


The relationships of routines in this 
phase are shown in the following nesting 
chart (Figure 37) and decision table (Table 
29). The relationships are shown in terms 
of levels; a called routine is considered 
to be one level lower than the calling rou- 
tine. Output Generator is considered to be 
level 1. 


CEKSA -- FORTRAN Compiler Output Generator 
(PHASES) 


PHASES consists of terminal operations 
of the FORTRAN compiler. Its purpose is to 


1. Build the object program text and the 
associated program module dictionary 
(PMD). 


2. Construct an internal symbol dic- 
tionary (ISD). 


3. Procuce user-selected documentation. 
4. Generate entry point table. 


ENTRIES: The only entry into PHASES is 
from the Compiler Executive, via standard 
linkage, at entry point CEKSA1. PHASES 
expects to receive the base of the Intercom 
as a parameter. 


EXITS: Before exiting back to the Exec, 
PHASES checks the upper limit for the fol- 
lowing items: 





1. Object program text. 
2. Program module dictionary. 
3. Internal symbol dictionary. 
4. External name table. 
If the upper limit has been exceeded, 
PHASE5 will set the error code (in the 


intercom) to "Fatal" and output a diagnos- 
tic message. 
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Level 


1 PHASE 5 


2 RLD BUILD ASSIST EDIT 


3 CMSEC PRSEC COSEC CONCV 


4 SPECS PHEAD 


SYMSRT CRFSRT 







Figure 37. Phase 5 Nesting Chart 


Table 29. Phase 5 Decision Table (Part 1 of 3) 


Routine:-——-~—--—-—~---—-Phase 5-—-~-—~-~—---~-—~—~----——-~---—-+-~+-~-—---—-—--+-—----+- Level: 1--~------~--- 
ee ered ae gee ae or feos Mi res eae ee a ne ee 1 
| | |Called | | 
{Routine | Usage [Routines | Calling Conditions | 
-—~----- -------------------------}---------} ----- =~ == +--+ 

|PHASES |To control the overall | BUILD |Entered for every compilation to produce | 
| | operations of Phase 5. | | text and the Program Module Dictionary | 
| | | | (PMD). l 
| | | ASSIST jEntered when the option is requested by | 
| | | | user to generate the Internal Symbol | 
| | | | Dictionary (ISD). | 
| { | EDIT | Entered when the option is requested by | 
| | | | user to produce and output the object | 
| | | | program module information, the memory | 
| | | { map, and the object code listing. | 
| | | SYMSRT | Entered when the option is requested by | 
| | | | the user to produce and output the list-]| 
| | | | ing of the sorted Symbol Table | 
| | | | information. | 
| | | CRFSRT jEntered when the option is requested by | 
| | | | the user to produce and output the Cross| 
| | | | Reference Listing. | 
| | | RDM [Entered when an error condition is i 
| | | (CEKTE) | encountered. | 
| | | PHEAD |To eject a page and print the heading for | 
| | | | the Table of Initialized Variables. | 
| | | CONCV |Entered to convert integer, real, or com- | 
| | | | plex values for printing. | 
| | {OLR {An Exec routine entered to print each line| 
i | | (CEKTHE)| of the Table of Initialized Variables. | 
bese fe eee Be a ele ee a ea al i a ces J 
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Table 29. 


Phase 5 Decision Tabie (Part 2 of 3) 


Rout ine:-——--—--—-----—- Phase 5-------—---—~--—-----—------—~--—--—--------—---- Level: 2-~-—-------- 
por Cr Re ae ee ToS a ea eT 1 
| | {Called | | 
|Routine | Usage |Routines | Calling Conditions | 
t-------- $------------------------- {~--------- }--~---------------=----------------------- { 
| BUILD |To produce the object {| CMSEC {Entered for each COMMON block to create | 
| {| program module (OPM) | | a Control Section in the OPM. | 
| | and Program Module | PRSEC |Entered for each compilation to build a | 
| | Dictionary (PMD) for | | prototype control section (PSECT) for | 
| | each compilation. | {| the OPM. | 
| | | COSEC {Entered for each compilation to create a _ | 
| | | | Control Section for the object code. | 
}-------- }------------------------- $~-------- $----------------------------=------------- { 
{ASSIST |To produce the Internal |None | | 
| | Symbol Dictionary (ISD) | | | 
| | when the option is | | | 
| | selected by the user. | | | 
[-------- {------------------------- +--------- $-------------------------------——--------—- 4 
| EDIT {To produce and output | CONCV | Entered when a constant is encountered in | 
| | several user-selected | | the object code listing to convert to | 
| | listings concerning the | | EBCDIC. | 
| {| OPM. | PHEAD [Entered when a new page of the listing is | 
| { | | needed, ejects the page and prints the | 
| | | | heading. | 
| | [OLR [An Exec routine entered to print each line| 
| | | (CEKTHE) | of the output listing. | 
}------— }------------------------- 4---------} ------------------—--------—------- 4 
{|SYMSRT [To produce and output | P HEAD | Entered when a new page of the listing is | 
| | an alphabetical listing | | needed, ejects the page and prints the | 
| | of all the items in the | | heading. | 
| {| Symbol Table. j OLR {An Exec routine entered to print each line| 
| | | (CEKTHE)| of the output listing. i 
-------- 4--------~----------------}---------}----------------------=--=---------------- 
|CRFSRT |To produce and output a |PHEAD | Entered when a new page of the listing is | 
| | Cross Reference List for| | required, ejects the page and prints the| 
{ | all symbols and state- | | heading. | 
| | ment labels. | OLR jAn Exec routine entered to print each line| 
| { | (CEKTHE)| of the listing. { 
bese ae $e aa ea eee eee be eas I cae ae a races a ot arn pa ey et le a ee: 4 
Rout ine:—-——~-—--~-—-—--Phase 5—-----—-—--~-—---—-—---—--—-----—-----+----------- Level: 3-—---------- 
Saale ee aaata Poe ee ee eee to a ee a ee eT Tee q 
| CMSEC {To create a Control Sec- |SPECS {Entered for BLOCK DATA subprograms to | 
| | tion (CSECT) correspond- | | store the pre-set data. | 
| | ing to a COMMON block | | | 
| | definition. | | | 
}-------- 4------------------------- $--~------ 4----------------------------------------—- { 
| COSEC |To produce the Control | None | | 
| | Section for the object | | | 
| | code and the numeric | | | 
| | constants and enter some | | | 
| | information into the PMD] | | 
| | and ISD. { | | 
}-------- }-------------------------}--------- 4-------—--------------------------------- { 
| PRSEC |To produce the prototype |SPECS |Entered if any pre-set data is present to | 
| | control section (PSECT) | | store it in the noncommon variables. | 
| | for the OPM. | | | 
~~----— $-------------------------4---------} ------------------------------ === 
| CONCV {To convert constants to’ |PHEAD |Entered when a new page is needed to eject| 
| EBCDIC for the output | a page and print the heading. | 
| listing. OLR jAn Exec routine entered to print each | 


| 
| 
| (CEKTHE)| output line. | 
eee RS a st J 


a et a eS A a AS cE SY mS 
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Table 29. 


Phase 5 Decision Table (Part 3 of 3) 


Routine:-—-——~--—--—-—--- Phase 5---—~--—~—--—----~—-—--+---—-—--—---—~-~--~+------++- Level: 4--—-----—---—- 
oo LS ee eS ee {- Se ee a ee 1 
| | |Called | | 
{Routine | Usage JRoutines | Calling Conditions | 
-—------ $-----------------—-------4---------+------------------------------------------f 
| SPECS |To place the values given|RDiM jEntered if an error condition | 
| | in pre-set data state- | (CEKTE) | encountered. | 
| | ments into the text of | | | 
| | the appropriate control | | | 
| | section. | | | 
------- }~---~--------------------4---------}------------------------------------------| 
| PHEAD |To eject a page, update |OLR |An Exec routine entered to print the | 
| | the page number, form | (CEKTHE) | heading. | 
| | and print the page head-| | | 
| | ing, and initialize the | | | 
I | line count. | | | 
ca a a a a i a 
OPERATION: PHASES (Figure 38), activated OPERATION: The object program module is a 


by a call from the exec, combines and edits 
outputs from the earlier phases, to produce 
the object program and the various optional 
program documentation. The symbol table, 
the code file from Phase 4, and several 
Special lists from Phase 1 are the main 
sources of material. 


PHASES initializes nonvolatile register 
N1 with the symbol table base and thus 
establishes a phase-wide common register. 
It also copies the intercom into the Pha- 
se*s PSECT. 


PHASES proceeds to construct the object 
program text and the program module dic- 
tionary (PMD). If the ISD option has been 
selected and the program is not a BLOCK 
DATA subprogram, PHASES will build the 
related internal symbol dictionary. After 
successfully building the OPM and its 
related ISD(if requested), PHASES edits any 
user-selected documentation. 


Finally, PHASE5 restores the compiler's 
intercom and returns to the phase. 
controller. 


CEKSB -- Object Program Module Builder 
(BUILD) 


The purpose of subroutine BUILD is to 
construct the object program module and to 
BUILD a part of the internal symbol dic- 
tionary. See Chart GL. 


ENTRIES: BUILD has only a single entry 
(CEKSB1) from PHASES. BUILD expects no 
input parameters other than those contained 
in the phasewide register assignments. 


EXITS: Normal exit only to PHASES. 
output parameters. 


No 
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part of the edited end product of the TSS/ 
360 FORTRAN compiler. More specifically, 
it is that part which ultimately partici- 
pates in the routine execution of a task. 


The object program module consists of 
executable object code, and other control 
and reference parameters necessary for the 
relocation and execution of the control 
sections contained within the OPM. From 
the viewpoint of the compiler, the OPM is 
the result of one complete pass through the 
compiler, and thus represents a unit of 
source code terminating with an END 
statement. 


The OPM is organized into several con- 
trol sections (CS), each of which has a 
dictionary part (CSD) and an optional text 
part. This material of the OPM is divided 
into two data sets, with one set containing 
the module heading and CSDs (also called 
PMD), and the other set containing the text 
part. The text of each control section 
starts on a page boundary. Named COMMON 
control sections may or may not contain 
text. The OPM is designed to be compatible 
with the assembler output and is suitable 
for processing by the dynamic loader and 
link editor. 


Initialization of Module: 
initializes the object program module. 
initialization consists of: 


Upon entry BUILD 
The 


1. Pre-processing of the PMD heading (see 
Figure 35) which includes the follow- 


ing of: 


OPM name (six characters) is 
obtained from the intercom region 
and inserted in the 8-byte name 
field (left-justified) of the 
standard entry point (SEP). 


Ae 


Figure 38. 
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Phase 5 General Flow 


b. The length of the PMD heading, in 
bytes is inserted in the PMD. 


c. The diagnostic code field is set 
to the contents of maximum error 
code in the intercom region. 


dad. The deck ID name is obtained from 
the intercom region and inserted 
into the 4&-character ID name 
field. 


e. The PCS communication indicator is 
inserted, based upon the contents 
of the ISD flag and whether the 
module is a main program. The 
FORTRAN module bit is set on. 


f. The version ID is retrieved from 
the intercom and inserted in the 
8-byte field allocated. The PCS 
communications indicator is set 
when the version ID is a 
time-stamp. 


g.- Number of references and number of 
modifiers are both set to 1. : 


h. The name field in the reference 
from the SEP is set to: 


(1) Name of the CSECT, if other 
than block data. 


(2) CHCIWS, if block data. 
i. The fields in the modifier are 


(1) Reference number and T field 
are set to 1. 


(2) L and byte are set to 0. 


2. Establishment of the number of COMMON 
control sections. 


3. Initializing two parameter registers, 
one to the base of the first CSD in 
the PMD and the other to the base of 
the OPM. 


Processing of COMMON Control Sections: The 
CMSEC subroutine is calied by BUILD 


repeatedly. CMSEC generates a control sec- 
tion corresponding to a COMMON block. Ina 
BLOCK DATA subprogram BUILD terminates the 
module immediately after processing COMMON 
control sections. 


Code and PSECT Control Sections: Subrou- 
tines COSEC and PRSEC produce the CSECT 
control section and PSECT control section, 
respectively. 


Termination of a Module: Before returning 
to PHASES, BUILD inserts the length (in 
bytes) of the PMD into the appropriate call 
in the PMD heading. 


CEKSC -~- Common Control Section Generator 
ACMSEC) —— 


The purpose of CMSEC is to create a con- 
trol section corresponding to a COMMON 
definition. CMSEC is used by BUILD. See 
Chart GM. 
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ENTRIES: CMSEC has a single entry (CEKSC1) 
from BUILD. 


CMSEC expects the following input para- 
meters, in addition to those specified in 
the phase-wide register assignments: 


1. A pointer to the current COMMON block 
entry in the storage class table. 


2. The location for building the CSD in 
the PMD. 


3. The base for making text entries into 
the current COMMON control section. 


EXITS: Before exiting, CMSEC 

1. Sets the base for the next CSD entry 
in the PMD. Specifically, this is the 
first word boundary after the last 
entry made (in the PMD) by the current 
call on CMSEC. This value will be 
passed back to BUILD as a register 
parameter and will also be stored in 
Phase 5‘s intercom (as the current PMD 
top). 


2. If any text entries were made into the 
current COMMON control section, CMSEC 
sets the base for the next entries in 
the OPM. The base will be the first 
page boundary following the last page 
of text of the current control sec- 
tion. This parameter will be passed 
back to BUILD in a register and will 
also be stored in the intercom as the 
(current) OPM top. 


OPERATION: Upon entry, CMSEC clears the 
CSD heading and definition. The number of 
relocatable definitions is set to 1, and 
the attributes are set to indicate the type 
of COMMON control section (blank or named 
COMMON). The name of the COMMON block, 
found in the storage class table, is 
inserted (left-justified) in the alphameric 
name of definition field. The storage 
class table entry also supplies the size of 
the COMMON block. The number of pages of 
virtual storage is now calculated 


N = Size + 4095 
P 4096 


and inserted in the CSD. The virtual 
Storage page table of the CSD is then con- 
structed and consists of Nphalfwords, con- 
taining only 1 bits. 


In the case of a BLOCK DATA subprogram, 
control sections corresponding to named 
COMMON blocks undergo additional proces- 
Sing. CMSEC prepares to process preset 
data and calls for the SPECS subroutine. 
SPECS performs the following functions: 
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1. Does the actual scan of the preset 
data file. 


2. Selects the appropriate DATA items. 
3. Generates the necessary text pages. 


4%. Moves the preset data items into the 
text. 


5. Indicates in the virtual storage page 
table those pages that contain text. 


SPECS returns to CMSEC, which terminates 
the control section. Termination of CMSEC 
includes entering the number of bytes in 
the CSD into the first word of the CSD and 
the number of bytes of control section into 
the second word of the CSD. 


CEKSF -- Code Control Section Generator 
(COSEC) 


COSEC produces one of the component con- 
trol sections of the object program module 
(OPM). In particular, it produces the con- 
trol section that consists of the object 
code, including numeric constants. In 
addition, COSEC enters information into the 
program module dictionary (PMD) and 
generates part of the internal symbol dic- 


tionary if the ISD flag is on. See Chart 
GN. 
ENTRIES: COSEC has a Single entry (CEKSF1) 


from BUILD. 


Input Parameters: 
1. Origin of CSECT‘s CSD. 


2. Origin of CSECT‘s text. 


EXITS: COSEC makes a single exit to BUILD. 


Output Parameters: 


1. Instructions that needed their displa- 
cement fields filled in before being 
stored into CSECT’s text will be 
returned to the code file in completed 
form. (This is done to facilitate the 
work done by EDIT, whose function is 
to produce an output listing). 


2. As an additional service to EDIT, 
COSEC will store in Phase 5's PSECT 
the number of bytes of text of the 
code control section and the origin of 
the OPM‘s PSECT. 


3. The top of the code control section 
will be stored in a specified location 
in Phase 5's PSECT and will also be 
passed as a parameter in a register. 


The register that contains the hase of 
the CSD for CSECT will be set to the 
first word boundary following the last 
entry COSEC made. This value will 
also be stored in a specified location 
in Phase 5‘s PSECT. 


OPERATION: 


Code Control Section: 


The code control 


section (CSECT) consists of code and numer- 
ic constants. 


1. 


Object Code. The code entries into 
the CSECT are determined by an inves- 
tigation of the code file (generated 
by Phase 4). The items of the code 
file are sequentially scanned and may 
be ignored or entered into the CSECT, 
or they may give information for 
determining an entry in the CSECT. 
Entries into the CSECT are placed 
sequentially, as they are encountered 
(or determined). Three registers are 


used during this operation; one 


register marks the item to be investi- 
gated in the code file, and two regis- 
ters are used to indicate the avail- 
able byte for storage in the CSECT. 
The first byte (operation field) of 
each item in the code file determines 
the action to be taken. Following are 
the actions taken for the various 
possible values. 


Let X represent the value of the first 
byte of the item being investigated. 
Then: 


a. For X less than or equal to 2: 
No entry is made into the CSECT. 


If X is equal to 1, the location 
counter of the code file is incre- 
mented by eight bytes; otherwise, 
it is incremented by four bytes. 


b. For X strictly less than 40,, and 
strictly greater than 2: 


The item being investigated is a 
halfword instruction and is placed 
into the CSECT. The index regist- 
er for CSECT is incremented by two 
bytes, and the address register of 
the code file by four. 


c. For X strictly less than DO,, and 
greater than or equal to* 40,4, : 


The item being investigated is a 
fullword instruction and is placed 
in the CSECT. CSECT*s index 
register and the code file's 
address register are both incre- 
mented by four bytes. 


Numeric Constants. 


d. For X greater than or equal to 
DO, and strictly less than FE,.: 


The item being investigated is a 
6-byte instruction and is placed 
in the CSECT. CSECT's index 
register is incremented by six 
bytes, and the location counter 
for the code FILE scan is incre- 
mented by eight bytes. 


e. For X exactly equal to FE,.: 


The word being investigated, plus 
the following two words, contains 
information for determining a ful- 
lword entry into the CSECT. 


The second word (investigated word 
plus 1) is to be placed into the 
_CSECT after its displacement field 

has been completed. 


Both the first and third words 
(second half) contain pointers to 
the symbol table. The first-word 
pointer is to an adcon entry, and 
the third-word pointer is toa 
statement label entry. 


The displacement is calculated by 
subtracting the offset (in the 
value field of the adcon) from the 
assignment of the label. 


The address register of the code 

file is updated by twelve bytes, 

and the index counter of CSECT. by 
four. 


f. For X exactly equal to FF,,: 


This is the termination code to 
inform COSEC that the scan of the 
code file is completed. 


Upon completion of 
the code file scan, COSEC will check 
storage Class 2 in the storage class 
table for the presence of numeric con- 
Stants. In the event that storage 
Class 2 is not empty, COSEC will 
execute the following. 


a. The first available byte for a 
numeric entry into the CSEC will 
be set on the first quadruple-word 
boundary following the last code 
entry (these zero to twelve bytes 
will be filled with zero bits). 


b. The numeric constants will be 
retrieved and placed in CSECT‘s 
text, by following pointers to the 
symbol table from the constant 
header table. 
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Control Section Dictionary Entries: (See 
Figure 35) Each control section has a con- 


trol section dictionary (CSD) associated 
with it in the program module dictionary 
(PMD). The origin of CSECT‘'s CSD will be 
passed as a parameter in a register for 
COSEC to make the following entries: 


1. Initialize the CSD heading to all zero 
bits. 


2. Retrieve from the intercom the time 
stamped version ID of the module and 
insert it into the CSD. ; 


3. Set the appropriate word in the CSD to 
indicate CSECT's attributes, which are 
reentrant and read only, plus PUBLIC 
if indicated by the user's options. 


&. Retrieve from the intercom the module 
name, add a suffix (#C) to this name, 
and place it in the CSD. 


5. Calculate and insert the length (in 
pages) of CSECT into the CSD. This is 
determined by subtracting CSECT's ori- 
gin from its next available storage 
byte, and dividing the result by 4096. 
The integral portion (plus 1 if the 
remainder is nonzero) is the number of 
pages. a 


6. Complete the virtual storage page 
table for the CSD. A halfword page 
number entry will be made for each 
text page of CSECT. The page number 
entries will be ordinal numbers of the 
form I, where I = 0, ...., n-i (0<n-1) 
and n equals the integer portion of 


no. bytes of text + 4094 
4096 


7.- The number of bytes in the CSD will be 
placed in the first word of the CSD. 


8. In the second word of the CSD, COSEC 
will store the number of bytes of text 
of the code control section. 


ISD Entries: (See Figure 36) Concurrent 
with the building of CSECT, certain entries 
will be made in the ISD, if the ISD option 
is not suppressed. Initially, the number 
of control sections will be calculated and 
stored (right-justified) in the fourth word 
of the ISD. The number of control sections 
is equal to the number of COMMON control 
sections plus 2 (one for PSECT and one for 
CSECT). 


The number of COMMON control sections is 
directly obtainable from the storage class 
table. The first two bytes of the storage 
class table give the number of named COM- 
MONS, and the tenth word (Storage Class 9) 
indicates if there is a blank COMMON. 
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The number of control sections, multi- 
plied by 16, plus 24, gives the offset (in 
bytes) for the beginning of statement numb- 
er storage in the ISD. 


During the scan of the code file, while 
CSECT is being built, if the first byte of 
the item being investigated has a value of 
1 or 2, it may cause a statement number 
entry to be made into the ISD. 


1. If the value of the item is 1, the 
item is a statement header and is 
eight bytes long. The last four bytes 
of the item contain a line number. 
This line number is checked against 
the last line number encountered. If 
it is the same, no entry is made into 
the ISD. However, if it is different, 
an entry will be made into the ISD. 
The statement number field in the ISD 
will be set to all zero bits, and the 
following word (offset field) will 
have the current value of CSECT's off- 
set counter stored in it. In addi- 
tion, the new line number will replace 
the old line number (for testing), the 
location counter for the ISD (marking 
the next available word for a state- 
ment number entry) is incremented by 
eight bytes, and the code file's 
address counter is incremented by 
eight bytes. 


Note: The next paragraph outlines an 
additional condition on the handling 
of statement headers. 


2. If the value of the byte being inves- 
tigated is 2, the item is four bytes 
long, with the last two bytes of the 
item containing a pointer to a state- 
ment label entry in the symbol table. 
A test is conducted (on the class . 
field of the label) to see if it is a 
source label. If it is, the binary 
value of the label is retrieved (from 
the symbol table) and placed in the 
statement number field of the ISD. 

The word following the label entry 
will have the contents of CSECT's off- 
set counter stored in it. The ISD's 
location counter is incremented by 
eight bytes and code file's address 
counter is incremented by four bytes. 
Further, no entry into the ISD will be 
made for the next statement header 
encountered. 


Notes Upon completion of statement 
number entries into the ISD, COSEC 
will place the number of statement 
number entries made into the fifth 
word of the ISD. Also, at this time 
the ISD's location counter will con- 
tain the beginning location for symbol 
entries (in the ISD). The offset from 
the base of the ISD to where the sym- 


bol entries are to start will be cal- 3. 


culated and stored in the third word 
of the ISD. 


CEKSG -- PSECT Builder (PRSEC) 


The purpose of subroutine PRSEC is to 


build a prototype control section for the 


object program module. 


ENTRIES: 


See Chart GO. 


PRSEC has a single entry (CEKSG1) 


from BUILD. 


Parameters expected by PRSEC, in addi- 


tion to phase wide register parameters, are 
the base of its CSD and its text base. 


EXITS: 





Parameters passed upon exit back to 


BUILD are the PMD top and the OPM top. 


OPERATION: 


The building of the PSECT may 


be divided into the procedures discussed 


below. 


Concepts and terminology with 


respect to the program module dictionary 
(PMD) are closely related to their usage in 


TSS/360 Dynamic Loader, 


Internal Program- 


ming Specifications. 


1. 


Initialization of PSECT‘'s control sec- 
tion dictionary (See Figure 35) 


The CSD heading is cleared. The ver- 
Sion ID time stamp is inserted in the 
fourth and fifth words of the CSD. 
The number of relocatable definitions 
field is set equal to 1. The attri- 
butes field is set to indicate a 
fixed-length prototype control sec- 
tion. The name of the module, with a 
suffix #P, is inserted in the name 
field of the first definition. 


Processing of Entry Points 


A special entry in the intercom region 
points to the beginning of a chain in 
the symbol table containing (exclu- 
sively) descriptions of entry points. 
PRSEC follows this chain and processes 
each entry as follows: 


a. The name of the entry is inserted 
in the definition table. 


b. The offset (SLOC) is inserted as 
the value of DEF. 


c. The number of complex definition 
is increased by 1. 


d. The CSD index is incremented 
appropriately. 


e. Unusual fields are cleared to 
binary zeros. 


Construction of Reference Table 


The reference table of the PSECT's CSD 
contains entries similar to the 
entries in the definition table. 
There are two types of entries: 


a. Names of control sections of this 
OPM. 


b. Names of external references 
(entry points defined in other 
modules). 


Subroutine PREC first processes 
references to control sections 
within the module. The procedure 
is similar to the processing of 
entry points, except that the 
number-of-references field is 
incremented by 1 for each entry in 
the reference table. Control sec- 
tion names are entered in the 
order in which the control sec- 
tions appear in the OPM. - External 
references are obtained by follow- 
ing a chain in the symbol table. 
Reference numbers, which are the 
ordinal numbers of the entries in 
the reference table, are retained 
for subsequent use in constructing 
the relocation directories. Each 
storage class is represented by 
one word starting at WORK + 100 in 
the phase's intercom, and each 
word contains an LA reg, d . 
instruction, where d is preset 
with the appropriate reference 
number. The reference number of 
an external reference is saved in 
the DMLST field of the correspond- 
ing symbol table entry. 


Building of Relocation Directory (RLD) 
for Entry Points 


Each item in the definition table, 
that describes an entry point, has a 
1-word relocation item in the RLD for 
complex definitions. The RLD itself 
starts with a list of 1-word modifier- 
pointers. The following steps are 
performed to establish the modifier- 
pointer list. 


For each PMD page, up to and including 
complex definitions, a 1-word 
modifier-pointer is inserted into the 
CSD. The value of each modifier- 
pointer is 


4 (N - n) + 2 
where: 
N is the number of pages in the 
PMD. 
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204. 


n is the page number to which the 
modifier-pointer refers. 


Thus, initially, each pointer indi- 
cates the first RLD item. 


Each RLD item has zero in its L field 
and 1 in its T field, indicating a 
length of four bytes for the adcon to 
be modified, and specifying addition 
as the modification operation. The 
reference number is the ordinal number 
of CSECT's reference in the reference 
table. The byte address is set to the 
displacement of the value fieid of the 
complex definition within the appro- 
priate PMD page. 


At the completion of the RLD, or at 
page boundaries within the complex 
definition list, the number of RLD 
items pertaining to that page is 
inserted, in the left half of the 
corresponding modifier-pointer. The 
pointer of the next modifier-pointer, 
if there is one, is increased by the 
current number of bytes in the RLD. 


Initialization of PSECT Text 


The first 84 bytes of the PSECT text 
are cleared. Before offsets in PSECT 
of the various storage classes can be 
computed, the size of NAMELIST infor- 
mation must be determined. 


Calculation of NAMELIST Size 


NAMELIST size is accumulated as 
foliows: 


Symbol table entries in the non- 
variable name chain are scanned and 
searched for NAMELIST names. Each 
NAMELIST name contributes 12 bytes. 
Each variable in a NAMELIST increases 
the size by 16 + 8N bytes, where N is 
the number of dimensions. The number 
of variables is obtained from the 
NAMELIST name entries, and dimension 
information is obtained by following 
symbol table pointers from the preset 
data file NAMELIST entries. 


The offsets from PSECT‘'s text base are 
computed and stored temporarily in the 
PSECT's register save area. 


Processing of External References 


Address constants for external 
references may be present in the adcon 
page, as well as parameter lists. If 
the combined size of register save 
area, local working area, address con- 
stants, and parameter lists does not 
exceed one page of PSECT's text, the 
RLD modifier-pointer is set to 4 (4 


byte integer) and the adcons are imme- 
diately processed. Otherwise, the 
portion of parameter lists which is in 
excess of one page is examined for the 
presence of external references. If 
none are encountered, processing takes 
place as above. If, however, there 
are external references, the number of 
additional text pages containing such 
references is determined, and the 
appropriate number of words in the RLD 
modifier-pointer list is cleared. 


Processing of external reference 
adcons and the corresponding reloca- 
tion items in the RLD is as described 
in the following paragraphs: 


Adcon entries in the Symbol Table are 
scanned. The value of the adcon is 
tested for storage class 254 and, if 
the test is successful, the corres- 
ponding non-variable name entry (in 
symbol table) is inspected for its 
class. If the class indicates extern- 
al reference, the name is matched 
against the list of reference names in 
the CSD, to obtain the ordinal number 
of such matching reference. The relo- 
cation item is composed to contain 0 
in the L field, and the ordinal number 
of the reference in the external . 
reference number field. The T field 
is set to 2, and the byte field is set 
equal to the offset of the adcon + 84. 
Four bytes in the PSECT, starting at 
the location indicated by byte field 
are cleared, the number of text modi- 
fiers field in the appropriate 
modifier-point is increased by 1, and 
a pointer to the RLD is advanced by 
four bytes so that the next relocation 
item may be received. 


External reference adcons in parameter 
lists are processed in similar manner, 
except that the byte field is 
increased by the size of storage class 
4% to give the proper offset within 
PSECT. 


If the external reference adcons are 
distributed over several pages of 
PSECT's text, a different procedure is 
followed. After processing adcon 
page, a counter is initialized to 
determine page boundaries within para- 
meter lists. At the start of each 
page, the pointer in the modifier- 
pointer for that page is set with the 
location, relative to the modifier- 
pointer, of the next relocation item. 
The byte field in the relocation item 
contains the displacement within the 
corresponding text page. 


Processing of Internal References and 
NAMELIST Items 


The number of modifier-pointers for 
the RLD for internal references is 
determined by the number of pages in 


PSECT's text, 
inclusive. 


from base to Namelists 
Processing of the RLD 


entries is very similar to the proce- 
dure outlined under Processing of 


External References. 
however, 
relocation item, 


There are, 
several differences. [In the 
the reference number 


field is obtained as follows: 


LIST entry is set with a symbol table 
pointer to that variable for later 
processing. The SLOC field of the 
NAMELIST name entry is assigned as 
offset in PSECT. 


Adcons in parameter lists and name- 
lists are processed as described 
before. A page count and special 
handling of RLD, similar to the proce- 
dure mentioned in (7) above, may take 
Place. Adcons in NAMELIST (locations 
of variables) are computed from the 
appropriate symbol table entries. 


a. For adcons pertaining to storage 
classes 1 and 2, the references 9. Processing of Alphameric Information 
number is 
The alphameric information will be 
(Number of COMMON blocks) + 1 retrieved from the preset data file 
and stored in the PSECT, beginning at 
b. For adcons covering storage the first doubleword boundary after 
classes 3, 4, 5, 6, 7, and 8, it the last NAMELIST entry. 
is 
10. Insertion of Virtual Storage Page 
(Number of COMMON blocks) + 2 Table 
c. Adcons referring to storage A virtual storage page table (VMPT) is 
classes 9 through 127 have a constructed and contains halfword 
reference number = (storage class) entries of ordinal numbers from 0 to 
~ 8, if blank COMMON is present, n-1, where n is the number of pages 
or (storage class) - 9, if blank that contain text (up to and including 
COMMON is absent. NAMELIST). Pages corresponding to 
noncommon variables, global and local 
d. Adcons that belong to one of the temps are allocated by setting~the 
storage classes from 128 through corresponding number of halfwords in 
253 have no RLD entry made in the the VMPT with 1-bits. 
CSD; they will, however, cause a : 
word to be set to zero-bits in 11. Processing Preset Data Stems in non- 
PSECT'’s text. COMMON Variables 
In general, the value of an adcon is If preset data is present, subroutine 
SPECS is called to select and insert 
Storage Class + Offset any preset data items of storage class 
6 into the area of nonCOMMON 
If for any adcon (both storage classes Variables. 
4 and 5) the storage class of its 
value is 254, the offset part of the 12. Termination of PSECT 
value field contains a symbol table 
pointer, and PRSEC obtains the value Termination of PSECT consists of: 
of the offset from the symbol table 
entry. In any case, the content of a. Storing the number of bytes in the 


the 4-byte adcon is computed as 
follows: 


Offset in Storage Class + Offset 
of Storage Class in CS 


If an adcon that points to a NAMELIST 
name entry in the symbol table is 
encountered, the contents of the adcon 
are made equal to the SLOC of the 


NAMELIST name, 
next available NAMELIST entry. 


if assigned, or to the 
The 


NAMELIST entries are processed to give 
information in the format specified by 


FORTRAN I/0. 


The location field in 


each variable description of the NAME- 


PSECT's text into the second word 
of the CSD. 


b. Setting the OPM top in Phase 5's 
intercom to the first page boun- 
dary following the last text entry 
in the PSECT (also passed in a 
register). 


c. Storing the number of bytes in 
PSECT's CSD into the first word of 
the CSD. 


d. Setting the PMD top in Phase 5's 
intercom to the first doubleword 
boundary following the last CSD 
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entry made by PRSEC (also passed 
in a register). 


e. The last six words of the first 
100 bytes of the PSECT will be 
used as masks and should contain 
values (left-justified) as shown 


Bytes Value 
76-79 80, 
80-87 4#E, 


Usage 
1-word sign mask 


2-word float mask 


88-95 00 2-word temporary 
96-99 46,4 1-word float mask 
CEKSD -~- Preset Data Processor (SPECS) 


For variables whose initial values are 
given, subroutine SPECS places these values 
into the t~xt of the appropriate control 
section. See Chart GP. 


ENTRIES: Subroutine SPECS has a single 
entry (CEKSD1) from either subroutine CMSEC 
or subroutine PRSEC. 


Input Parameters: 


1. Location of virtual storage page table 
in current Control Section Dictionary. 


2. Base of storage class in current con- 
trol section. 


3. Storage class of items to be filed in 
current control section. 


EXITS: Normal exit only. SPECS returns 
control to the calling program with input 
parameters unchanged. 


OPERATION: For the purpose of the follow- 
ing discussion, the following conventions 
are established: 


Variable - A variable is either a simple 
variable or an array 
variable. 

Variable - The value of a variable is 


either the initial value of a 
simple variable or the ini- 
tial value of an element of 
an array. 


Preset Data —- Preset data are those entries 
in the preset data file (PDF) 
that originated from a DATA 
statement or from data speci- 
fied in a type specification 
statement. 


The preset data file is a prime source 
of information used by SPECS. The preset 
data entries in the PDF contain, among 
other information, a link to the next vari- 
able in the preset data file, a pointer to 
the symbol table for each variable, one or 
more value entries for each variable (i.e., 
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elements of an array), a replication factor 
for each value, and an offset entry that 
indicates where the values are to be placed 
from the base of the variable's storage 
class. 


For descriptive purposes, SPECS is 
characterized in terms of retrieval and 
storage. 


Retrieval: 


1. Subroutine SPECS is called during the 
generation of a PSECT if any preset 
data is present in the PDF or during 
the generation of a named COMMON con- 
trol section of a BLOCK DATA 
subprogram. 


2. SPECS locates the first preset data 
entry in the PDF by following a point- 
er given in the intercom. 


3. For each variable within each preset 
data entry, SPECS follows the variab- 
le‘s pointer to the symbol table and 
tests its storage class. 


Storage: 


1. The values for variables of appropri- 
ate storage class are stored into the 
text of the current control section. 


2. For each page that is to have informa- 
tion placed on it, SPECS enters the 
virtual storage page number in the 
CSD. 


CEKSH -- Internal Symbol Dictionary 
Generator (ASSIST) 


Phase 5 of the FORTRAN compiler will 
test to see if the user has chosen to have 
an internal symbol dictionary (ISD) 
generated. In the event the user has indi- 
cated his desire to do so, it will be the 
function of ASSIST to generate the ISD (see 
Figure 36). 


It should be noted that no ISD will be 
built for a BLOCK DATA subprogram and that 
the ISD is a prerequisite for utilizing the 


program control system (PCS). See Chart 
GQ. 
RESTRICTIONS: The first word at the begin- 


ning of a FORTRAN-generated ISD must have a 


1 in bit 20. The rest of the word will be 
zeros. 
ENTRIES: Subroutine ASSIST has a single 


entry (CEKSH1) from PHASES. 


ASSIST has the following input 
parameters: 


1. Offset (in bytes) in PSECT of nonCOM- 
MON variables.- 


2. The third word of the ISD contains the 
offset from the base of the ISD for 
symbol entries and is filled in by 
COSEC. 


EXITS: Normal exit only, to PHASES. 
Before exiting, ASSIST stores the ISD top 
into the intercom. 


OPERATION: The entries in the ISD primari- 
ly are subdivided into control section name 
entries, statement number entries, and synm- 
bol entries. Statement number entries are 
made (in the ISD) during the time that sub- 
routine COSEC is operating and will not be 
discussed here. 


Control Section Names: All control section 
Names (CSECT, PSECT, labeled and blank COM- 
MON) are listed in the ISD. Immediately 
following each control section name entry 
in the ISD is the alphameric version ID of 
the module. 


Method: COMMON names (including blank COM- 
MON) are among the items listed in the 
storage class table. ASSIST will retrieve 
these names from the storage class table 
and insert them in the ISD. The name used 
for the CSECT name will be the name of 
module with a #C suffix, and the name used 
for the PSECT name will be the module name 
with a #P suffix. (If the module name is 
seven or eight characters long, it will be 
truncated to six characters before the suf- 


fix -- #C for the CSECT name and #P for the 
PSECT name -- is added.) 
Symbols: Each symbol, either COMMON or 


nonCOMMON (integer, real, complex, or log- 
ical) will have information about it placed 
in the ISD. Most of the information is 
obtained from the symbol table. 


The information in the ISD will consist 
of 
Alphameric Name Obtained from the symbol 
table 


Obtained from the symbo 
table : 


Type 


Number of Dimen- 
sions 


Obtained from the dimen- 
sion table 
Length of Entry Calculated 


Length Attribute 
of Symbol 


Obtained from the symbol 
table 

Section Number Refers to the order in 
which the symbol‘s con- 
trol section name appears 
in the ISD. 


offset For variables in COMMON 
control sections, the 
offset is equal to the 
contents of the SLOC 
field assigned to the 
symbol in the symbol 
table. 


For symbols belonging to 
the PSECT, the offset 
will be the contents of 
the SLOC (from the symbol 
table plus the offset of 
nonCOMMON variables in 
the PSECT. (This addi- 
tional offset is an input 
to ASSIST.) 


Obtainable from the 
dimension table, or none. 


Dimension 
Constants 


The symbol table has all symbols linked 
according to their respective storage 
classes. Initial entry to the first vari- 
able in the chain is accomplished by fol- 
lowing the pointers listed in the storage 
class table. 


CEKSI -- Object Program Documentation 
(EDIT) 


The purpose of EDIT is to edit the 
object program module at a user-selected 
documentation level. See Chart GR. 


ENTRIES: EDIT has a Single entry (CEKSI1), 
from PHASES. fe 


Upon entry, EDIT expects the following 
information: 


The number of bytes of the code control 
section (first word of Phase 5's work 
area). 


Origin of the OPM's PSECT (second word 
of Phase 5's work area). 


Parameters passed in the phase-wide as- 
signment of registers. 


EXITS: EDIT exits to PHASES. 
parameters. 


No output 


OPERATION: 


General Discussion: There are three docu- 
mentation levels at which an object program 
module may be edited. 


1. The basic level is always edited. The 
user receives this documentation even 
if he fails to specify one of the 
higher documentation levels. The 
basic level consists of: 
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a. Program header, including the OPM 
name and the combined size of the 
CSECT and PSECT. 


b. Names and offsets of entry points. 
c. Names of external references. 


dad. Names and sizes of control 
sections. 


e. Names, offsets, and sizes of 
storage classes, if other than 
control sections. 


The basic documentation level is 
included in both of the higher levels. 


2. The second level is generated if the 
user has selected the MAP option. At 
the MAP level, the basic level is aug- 
mented to include (in storage order): 


a. Names and locations of labels. 


b. Names, offsets and sizes of COMMON 
and nonCOMMON variables. 


3. The third Level of OPM documentation 
is obtained by exercising the LIST 
option. The LIST documentation level 
expands the MAP level to a full repre- 
sentation of the object program 
module. This level adds: 


a. A listing of the CSECT text, 
including object code and numeric 
constants. 


b. A listing of the PSECT text, 
including tabulation of address 
constants, available information 
about parameter lists, and alphan- 
eric constants. 


Throughout the documentation, locations 
and offsets are given as the number of 
bytes from the corresponding control sec- 
tion base, in hexadecimal. All sizes, in 
decimal, indicate the number of bytes. 


Method: (See Figure 39) After initializa- 
tion, EDIT prepares the program header, 
consisting of the OPM name and the size of 
CSECT + PSECT, as follows: 
NAME SIZE 

All entry points are now listed, one 
entry per line: 
ENTRY NAME OFFSET IN CSECT 


External references are represented by 
name only: 
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EXTERNAL REFERENCES NAME1, NAME2, NAME3, 
NAMES, eee 


This completes the header information, 
and EDIT now processes the CSECT, if it is 
present. At the basic documentation level 
the CSECT is described as follows: 


CSECT NAME SIZE 
CODE SIZE 
SIZE 


NUMERIC CONSTANTS OFFSET 


The necessary information is obtained 
from the storage class table. 


If the MAP ievel is selected, EDIT 
appends a list of labels to the CODE entry 


LINE NO. LABEL LOC HEX 
XXXXX . XX LABEL, OFFSET 
XXXXX. XX LABEL2 OFFSET 


The labels are listed in the order of 
their assignments and are obtained by scan- 
ning the code file and utilizing the label 
entries in the symbol table. 


With the LIST documentation level, EDIT 
generates a full expansion of the object 
code, as well as constants. The general 
format, appropriately arranged within an 
assumed line of 132 print positions, is as 
follows: 


LINE NO. 
COMMENTS 


LABEL LOCATION INSTRUCTION 


The LINE NO, represented in statement 
header entry of the code file as a packed 
decimal, is edited as follows: 


1. All leading zeros are suppressed. 

2. In the case of integers, the decimal 
point and fractional digits are 
suppressed. 

LABEL entries may consist of: 
1. Source statement numbers. 
2. Internally created labels (>99999). 


3. Entry point names. 


EDIT processes LABEL entries as they are 
encountered in the code file. 


LOCATION contains the location of the 
instruction with respect to the base of the 
CSECT. It is obtained from a register, 
which keeps a cumulative total of bytes in 
the object code. 


ty UOTZOES 


602 s 9seud 


"6€ oanbtga 


(2 JO T 32ed) FeWIO, HutystT ynd3ano 


NAMEXXxx, vvvvvvvvE 


























NAMEXX SIZE XXXXXXXX BYTES 
ENTRY NAME LOC HEX 
ENTRY] XXXXXX 
ENTRY2 XXXXXX 
. e 
e . 
ENTRYN XXXXXX 
EXTERNAL REFERENCES 
EXTER1 EXTER2 EXTER3 EXTERS 
EXTERN 
NAMEFC SIZE XXXXXXXX BYTES 
CODE 
ne NO LABEL LOC HEX INST HEX 
List Option ” X XXXXeXX XXXXXX — XXXXXXXX XXXXXXXX 
Cec eee 
LINE NOs LABEL LOC HEX 
Map Options vxxxxeXK —-XXXKXX — AXKXXXXX 
NUMERIC CONSTANTS 
TYPE LOC HEX 
C#16 AXXXAXKX 
Lis te XXXXKAXX 
NAME#P SIZE XXXXXXXX BYTES 


REGISTER SAVE AREA 
CONVERSION CONSTANTS 


ADDRESS CONSTANTS 


LOC HEX CONTENTS HEX 
List OPTION DK KXXK —-_ AKKAKXXXK NAME #C 
XAXXXXXXX — AXXXXAXX NAME #P 
1 VERSION ID 


2 TIME STAMP CFOR CONTROL SE 


CTIONS ONLY) 


EXTERS 





MM/DD/YY 
LOC HEX 000000 
INST ASSEMBLER 


XXXX XX oXXXX(XXs 


LOC HEX XXXXXXXX 


VALUE 


XX/XX/SXX PAGE XXX 


EXTER7T EXTERS 


—_—_——— 





HH:MM/SS 2 
SIZE XXXXXXXX BYTES 


COMMENTS 


XX) (He XXXXAXKXAAARAAAX AK ELK vt o AXXAXAKXANAKAAX KELXX) 


SIZE XXXXXX BYTES 


(Be XXXXXXXXXXXAXAXXXXELEXKX gy eo AXAXXAAAXAXKKKKXKELXX) 


482 
t.982E+1 





MM/ 
LOC HEX 00000000 
LOC HEX 0000004C 


LOC HEX XXXXXXXX 


CONTROL SECTION + OFFSET(HEX) 


47 
4E7 





— 44 Lines per Page ————________- —___. 


SIZE 76 BYTES 
SIZE 24 BYTES 
SIZE XXXXXXXX BYTES 
STORAGE CLASS + OFFSET( HEX) 


CODE 37 
ALPHAMERIC E87 


oTz 
"6€ eanbtaz 


NAME XXXX XX/XX/XX PAGE XXX 


PARAMETER LISTS LOC HEX XXXXXXXX SIZE XXXXXX BYTES 

















LOC HEX CONTENTS HEX CONTROL SECTION + OFFSET(HEX) STORAGE CLASS + OFFSET(HEX) 
List Option 

NAMELISTS LOC HEX XXXXXXXX SIZE XXXXXX BYTES 

ALPHAMERICS LOC HEX XXXXXXXX SIZE XXXXxXX BYTES 

LOC HEX ALPHA(HEX) ALPHA 


(fC JO f 3Aed) ZeuMAT0T Hutyasty] 3ndjano 


sada anaes XXXXXXXX A SINGLE ENTRY MAY HAVE SEVERAL CONTINUATION LINES 


NON=-COMMON VARIABLES (TOTAL) 


LOC HEX XXXXxXxxx 


SIZE XXXXXX BYTES 


eases VARIABLES LOC HEX SIZE (BYTES) 
List Option VARIABLE] XXXXXAXX XXXXXX 
VARIABLEN XXXXXXXX XXXXXX 


LOCAL TEMPORARY STORAGE 


GLOBAL TEMPORARY STORAGE 


COMMON NAME) 





LOC HEX XXXXXXXXx 


LOC HEX XXXXXXXX 


LOC HEX XXXXXXXX 





SIZE yxxxxxx BYTES 
SIZE XxXXXXX BYTES 
SIZE XXXXXX BYTES 


VARIABLE LOC HEX SIZE (BYTES) 
Listor ) VARTABLE} XXXXXXXX XXXXXX 
Map Option { VAR TABLE2 XXXXXXXX XXXXXX 
COMMON NAME2 LOC HEX XXXXXXXX XXXXXX 


VARIABLE 





List or 
Map Option 


COMMON NAMEN 


‘LOC HEX 








LOC HEX Xxxxxxxx 


S1ZE (BYTES) 


SIZE XXXXXX BYTES 


LOC HEX SIZE (BYTES) 
XXXXXXXX XXXXXX 
Map Option ee aac 
VARIABLEN XXXXXXXX XXXXXX 


NAMEXXXX, VVV 


i SYMBOL TYPE CLASS SIZE( BYTES) STORAGE CLASS + OFFSET 
phi NO Cope 38 
Tatt XXXXXX STATEMENT ° 
Option XXXXXX COMPLEX VARIABLE 16 NON-COMMON 260 
SYMBOL DEFINED REFERENCED 
VARIABLE1 LINE NOee LINE NOes LINE NOos LINE NOos _ 
Cross Ref. 
List Option 


VARIABLE 
List or VARIABLE] 


A XXX AKA X 





An INSTRUCTION entry is edited in two 
parts. The hexadecimal representation of 
the instruction, as given in the code file, 
is edited first. The second part contains 
an assembly-like entry of the instruction. 
The operation field is translated to the 
corresponding mnemonic; the operand fields 
are converted to decimal integers and are 
rearranged with the appropriate 
punctuation. 


A COMMENTS entry consists of a descrip- 
tion (if available) of the second operand. 
It may contain one of the following: 


1. Name of a variable, where all sub- 
scripted variables are represented by 
the array name only. 


2. Label which appears as a statement 
number . 


3. Constant, shown as a literal. 


&. Address constant, edited to give 
results in the form 
STORAGE CLASS NAME + OFFSET 
EDIT uses a descriptor entry in the code 
file to obtain information for the COMMENTS 
field. The descriptor trails the respec— 
tive instruction and points to the appro- 
priate symbol table entry. 


The representation of numeric constants 
has entries similar to the object code, 
with the following exceptions: 


1. LINE NO. 
apply. 


2. The COMMENTS entry is omitted. 


and LABEL entries do not 


The symbol table provides EDIT with the 
necessary information to list numeric 
constants. 


After completing the editing of the 
CSECT, EDIT processes the PSECT. At the 
basic documentation level, PSECT is edited 
as follows: 


PSECT NAME SIZE 
REGISTER SAVE AREA SIZE 
ADDRESS CONSTANTS OFFSET SIZE 
PARAMETER LISTS OFFSET SIZE 
NAME LISTS OFFSET SIZE 
ALPHAMERIC CONSTANTS OFFSET SIZE 
NONCOMMON VARIABLES OFFSET SIZE 
LOCAL TEMPORARY STORAGE OFFSET SIZE 
GLOBAL TEMPORARY STORAGE OFFSET SIZE 


At the MAP level, the NONCOMMON 
VARIABLES entry is expanded to include 
individual variable names. 


NONCOMMON VARIABLES OFFSET SIZE 
VARIABLE, OFFSET SIZE 
VARIABLE2 OFFSET SIZE 


The LIST documentation level includes 
description of alphameric constants, 
address constants, and parameter lists. 
For each address constant, EDIT supplies 
the following information: 


LOCATION/CONTENTS /CONTROLSECTION/ STORAGE 
CLASS 


LOCATION gives the offset of the adcon 
from the PSECT base. CONTENTS is the value 
of the adcon. CONTROL SECTION gives the 
name of the referenced control section, and 
STORAGE CLASS refers to the particular 
class in that control section, such as 
code, numeric, alphameric, etc. 


For any COMMON control section, EDIT 
produces, at the basic documentation level, 
the name of the section and its size. The 
MAP and LIST levels expand each COMMON 
entry with a listing of variables. The 
format is similar to the representation of 
NONCOMMON VARIABLES in the PSECT. 


The editing of COMMON cntrol sections 
completes the work of EDIT on the OPM. 
Symbol table and cross reference Index 
option flags are examined, and, if 
selected, the appropriate table is edited. 


CEKSJ_-- Symbol Table Sort (SYMSRT) 


SYMSRT produces, upon request, an alpha- 
betical listing of items in the symbol 


table, as shown in Figure 39. See Chart 
GS. 
ENTRIES: SYMSRT has a single entry 


(CEKSJ1) from PHASES. PHASES uses the 
INVOKE macro to call SYMSRT. 


EXITS: Normal exit only. No output 
parameters. 
OPERATION: PHASES inspects an entry in the 


intercom to determine if the user desires 
an output listing of items in the symbol 
table. Should this option be selected, 
PHASES invokes SYMSRT, which provides an 
alphabetical listing of the following 
items: 


1. Entry names. 
2. NonCOMMON variable names. 


3. COMMON variable names. 
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4&. External names. 
5. NAMELIST names. 


In addition to writing the name of the 
item, SYMSRT writes its type, class, 
storage class, and offset from base of 
storage class, where these items are 
applicable. 


Type - I#2, I*4, C#8, R*4, etc. 


Class - Array variable, simple 
variable, entry name, 
external name, etc. 


Storage Class - Code, nonCOMMON, named COM- 
MON, etc. 


Immediately following the listing of the 
items (explained in the preceding discus- 
sion), a listing of labels, both source— 
generated and compiler-generated, are out- 
put in ascending order. 


CEKSE -- Output Page Heading (PHEAD) 


CEKSE produces the page heading for each 
page of output listing generated by PHASES. 


ENTRIES: PHEAD has asingle entry (CEKSE1) 
and is invoked by: 


EDIT 
SYMSRT 
CRFSRT 
CONCV 


CEKSE expects one input parameter in 
register Pi for initializing the line-count 
counter. The value must be 0, 1, or 2. 

The value passed is subtracted from some- 
constant, and the line count counter is 
initialized to the result. 


EXITS: Normal exit only. No output 
parameters. 

OPERATION: Upon entry, CEKSE does the 
following: 


1. Initializes a cell in the phase's work 
area that is used as a line count 
counter (i.e., the number of available 
lines left on the current output 
page). 


2. Skips to a new page. 


3. Forms and writes a page heading for 
the new page. The heading consists of 
the module name, the date, and the 
page number. All three items may be 
found in the phase's copy of the 
intercom. 
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CEKSL -- Constant Conversion (CONCV) 


CONCV converts constants (integer, real, 
or complex) to EBCDIC code for output in 
documentation of a FORTRAN-compiled pro- 
gram. See Chart GT. 


ENTRIES: CONCV has a Single entry (CEKSL1) 
and is invoked by subroutine EDIT. 


Input Parameters 


A parameter register passed to subrou- 
tine CONCV contains the address of a con- 
stant's descriptive entry in the symbol 
table. 


EXITS: Normal exit only. No output 
parameters. 
OPERATION: While EDIT edits the code file 


to generate the output listing, any comment 
entries that refer to constants cause EDIT 
to invoke subroutine CONCV. CONCV con- 
verts, formats, and writes the constant and 
its offset in the code control section. 


A parameter register passed to subrou- 
tine CONCV contains the address of the con- 
stant's descriptive entry in the symbol 
table. From the descriptive entry, CONCV 
determines the following: 


1. The constant type - integer, real or 
complex. 


2. The length of the constant - two, 
four, eight, or sixteen bytes. 


3. The address of the constant itself. 


4&. The constant's offset from the base of 
the CSECT. 


The first three items are used to con- 
vert and write the constant in the correct 
format, and the fourth item is written in 
hexadecimal, aS additional information for 
the user. 


CEKSK -- Cross Reference List Routine 
(CRFSRT) 


CEKSK prints a cross reference listing 
for the variables (symbols) and labels, 
from the list generated by Phase 1. See 
Figure 39 and Chart GU. 


ENTRIES: This routine has one entry point 
(CEKSK1). 
EXITS: Only the normal exit is made, with 


no output parameters. 


OPERATION: Upon entry, CRFS?T makes a pass 
across the cross reference list which was 
generated by Phase 1. Each entry is 
examined. If it is a symbol reference, the 
symbol table pointer is used to get the 
symbol name. A table of symbol references 
is built in the code file with the follow- 
ing formet: 


0 8 16 24 31 
Gta ea os OE Se oT Ge ad 
| N | A | M | & I 
| Xx | x { Flag |Not Used | 
La a len nm Bate eee Bi eens 4 
| Line Number | 
Na a a a ececk 
where 


*“NAMEXX" is the symbol name in EBCDIC 
(or BCD), lef-justified with trailing 
blanks. 


“Flag” indicators a reference (X*'02') 
or a definition (X‘'01°). 


"Line Number” is the line number of 
the reference or definition, in packed 
decimal. 


If the cross reference listing (CRL) 
entry is a label reference, a table is 
built in the CRL, with the format 
unchanged. 


After all the original entries in the 
CRL have been sorted into symbols and 
labels, the sorting of each list is begun. 


First the symbol list is sorted in alpha- 
betical order, with definitions first in 
increasing line numbers, followed by the 
references, also by increasing line number. 
The logic involved in the sorting of the 
list is best explained by the accompanying 
flowchart (Chart ON). In this type of sort 
scheme, a “delta” is calculated which is 
one-half the list size. Each entry (i) is 
compared with the corresponding *i+delta" 
entry. If a switch is necessary, it is 
made. If a switch of two entries is made 
below a certain point in the list, more 
comparisions are made before stepping to 
the "i+1" entry. When the bottom of the 
list is reached, the delta is reduced to 
half its size and the list scanned again. 
When delta is zero, the sort is completed. 


After the symbol list has been put into 
proper order, the heading for the symbol 
cross reference listing is printed. The 
symbol "name" is printed on the first line 
of its group only. If more than one line 
of printing is necessary, the rest are 
single-spaced. When a new name is found, 
the first line is double-spaced to separate 
the groups. The line numbers are printed 
with two spaces between the last digit of 


- one and the first significant digit of the 


next. Leading zeros of line numbers: are 
not printed. 


After all the symbol list entries have 
been printed, the label list is sorted and 
printed in the same manner. 
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FORTRAN IV PLM (TAPE 3) 9701DD-3 


SECTION 8:  FLOWCHARTS 


Each chart in this section is referenced 
from an associated routine described in an 
earlier section of this manual. The charts 
in this section are presented in the same 
order as are the routine descriptions. Not 
all routines are illustrated by charts. 


SYMBOL DEFINITION 
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October 15, 1969 


The flowcharts in this manual have been 
produced by the IBM System/360 Flowchart 
Program (Flowchart/360), using USASI sym- 
bols. These descriptions of the USASI 
symbols and the Flowchart/360 conventions 
will simplify interpretation of the flow- 
charts in this manual: 


The processing block indicates any processing function, or 
a defined operation that causes change in value, form, or 
location of information. 


When this block is striped, it indicates the entry point of 
a subroutine or module that is included in the flowcharts 
System/360 Flowchart automatically gene- 
rates a page-and-block locator (048A3 in this illustration) 
that specifies the page with this entry point. 


See below 


for an explanation of page-and-block locators. 
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When a call is made to a subroutine that is not in a flow- 
chart, but is described in this manual, the call is shown 
in a processing block without the stripe and the subroutine's 
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oe 2 or subroutine that is in the flowcharts of another PLM. 
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xeaceseeneaneeceee Time Sharing System: System Logic Summary, Form 30-5005" 
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es, operation that determines which of a number of alternate 
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When the decision process is so involved that a detailed 
flowchart is required, the decision block is striped, and 
the page-and-block locator is generated as for the pro- 
cessing block. 


The I/O block indicates the general I/O functions, which 
include (but are not limited to) the GET, PUT, READ, WRITE, 
or device-control macro instructions, and the SIO instruc- 
tion. Wherever possible, the entry point of a macro in- 
struction processor is shown. 


The modification block indicates an instruction or process 
that changes program operation, e.g., sets a switch, modi- 
fies an index register, or initializes a routine. 


If the modification is performed by a subroutine that is 
included in a flowchart in this PLM, the modification block 
is striped and a page-and-block locator is generated. 


The terminal or interrupt block indicates a terminal point 
in a flowchart. It is used to show start, stop, halt, delay, 
or interrupt. The terminal block is always used for either 
entry to a routine or for exit when a routine has completed 
its processing, and will not be reentered for the same ser- 
vice request. This block is also used for macro instructions 
such as ABEND, EXIT, and RETURN. 


The terminal block will be striped if the exit is to a rou- 
tine that is included in a flowchart in this PLM. A page- 
ana@-block locator is automatically generated when this block 
is striped. 


The on-page connector indicates exit to or entry from a block 
on the same flowchart page. 


The off-page connector indicates entry from or exit to a 
block on another page of the same flowchart. Note: Exit 
to another flowchart in this PLM is indicated by a striped 
block. 


Page-and-Block Locators 


The page-and-block locator generated for off-page connectors 
and striped flowchart blocks is a five-character string. The 
first three characters indicate the flowchart page on which 
the transfer address is located. This page number is rela- 
tive to the first flowchart page and appears in the upper 
right corner of each flowchart. The last two characters 
indicate the block at which the entry point is defined on 
the referenced page. 
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Chart AB. Phase Controller 
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Chart AG. Master Input/Output Routine (MIO) 


-- CEKTH (Page 1 of 2) 
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Chart AI. Inspect a Console Character (INSCON) -- CEKTJ 
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Chart AK. Build a List Data Set Buffer (BUILD) -- CEKTL PAGE 029 
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Chart AL. Flush a List Data Set Buffer (FLUSH) -- CEKTM PAGE 030 
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Chart AM. Phase 1 Main Loop (PH1M) -- CEKAD (Page 3 of 4) 
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Chart BT. Actual Argument Service Routine (AARG) -- CEKCR PAGE 119 
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Chart BU. Constant Arithmetic Interrupt (CHKINT) -- CEKCS PAGE 120 
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Chart BV. Extract Source Character (ESC) -- CEKAB 
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Chart BW. Assemble Components (ACOMP) -- CEKAE (Page 1 of 8) PAGE 122 
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Chart DT. Loop Test- Expression Generator -- CEKLI (Page 5 of 6) 
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Chart DU. Entry Point Processor (ENT) -- CEKOD (Page 1 of 2) PAGE 257 
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*CALL SELSR(SEL * 
*REG), INSOT (SRs 
*REG EG) NDS 
* TebuNt bun} * 


scccubeeanseee ees 
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Chart EU. Integer Multiply 








FEeen 
*310* 
* 31 
x * 
* 
\ 
| 
42093 { OPERANDS IN A REGISTER 
FHREER LOOSE KE REEE 
* CALL SLPOS * 
* (DETERMZNE * 
*ACTICN SET 'TO'* 
se TPRCM* INFO) .* 
REEKEEEEEEEREEEDE 
\ 
| 
1 
\ 
o*, 
c1 m, 
* =, 
YES .* POWER *, 
*#> cF 2 AND .* 
*, ZEKO 2? .* 
x, * 
4 “os 
ERESE * NO 
*315* { 
* G5* 
_ * 
* | 
ME094 *, 4E£099 
DI *, REREAD DK SHEE RE RED 
.* *, SIF #1 OR POKER $ 
* MOVE *,. YES * OR CALL * 
*, NEZDED ? ratte _paselSa (Ser REG). ~ 
‘ -* IF NOT, CAL 
*, * SSELDR(2 Anes} * 
*, * SRK EEKSEKEKEKREEE 
+" NO 
| 
4 
-*. ME1198 
EW a REKERE LE FERREE EEE 
- *, *CEKMYT 353A 1* 
NO .# *1 OR * *7 Pewee re eee wee ee 
me. POWER OF 2. %——————— USE TO PROTECT * 
i ° ~* *AND COUNT DCHN #* 
1 *, * * * 
* * PEKEKKSKSHRSESEGEAE 
* 2% { 
' { 
| 
1 REKEE 
{ #315 
Vv OPND * Gut 
FRERET | ROEREE EEE E «ok 
xCEKAWY 381A1# * 
Z COUNT DOWN = * 
* OPEKAND * y 
* eee 
| CREO ER ERE EER ARE *315* 
* Ee 
* * 
* 
(E112 -*. 42333 
G1 *, HEEEREG QERKEEKE ESE 
{ -* *. * CALL FLUSH * 
-*” SAME *. NO * {EVEN REG), & 
yet" pare“ nor “Is —>* OPND «count + 
*,SAME REG .* * pOWS "Fads? * 
*, .* * P). * 
*, o® SKEET EEERSEERESE 
* YES | 
i 
1 1 
{ ' 
{ ' 
{ 1 
RSLT | 
REKEKH |S EKEREEEEE 
*CEKMY1 383418 
#552 10 PROTECT * 
: EVEN EEGISTER : 
SKKEMKESHEEKSER EEE 
le ee 





ME336 t RSLT 
FRERE] 1 ESKER EEE OE 





Generator (IMPLY) -- CEKME (Page 3 of 3) 


EREKEY FRHRRREEEES 
*SET Lak. IF CMPL* 
* SET LCR. CALL * 

>* INSOT(GEN LP, * 
* LCR), CPND. : 
* 


REKEEEKRESEREREEEE 


RSLT 
SReRP ERR ER ERE 
Sczkan 38118 
* USE TO COUNT * 
* DOWN *FROM* * 
* OPERAND = 
EERE ERE TERED 


SETV4 InNsot 
EHR EEG FE OEES CERES 


SCEXNI? 397A1* 


eee 
>*USE TO GENERATE* 
* MK * 
= * 
REKEKEKERSSKERSESE 


aeeee 
*315* 
= Gas 
* * 


SCEKBY1 383418 | 
+0SE TO P. ECT 


ROT 
*AND COUNT DOWN * 
* TO REGISTER * 
CEERAERREEESEE RES 


EEE 
*#315* 
* Gus 


* 


* 
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Chart EV. Integer Divide Generator (IDVDE) -- CEKMD PAGE 317 


























seibsesexdabaxens 


CEKMD1 IDVDE 
KEE ALRERHARE EE 
* 
* ENTER * 
* * 
SEREEEKREKREEESE 
-*. KEY 4D009 SLONE .* MDO10 a 
B1 *, ERED DEREREEE ERE B3 *, *. FTRERBES ERE RER ERE 
CEKOC1 377a1 *CEKOWT —370A1* -* * * * *CALL FLUSH (ODD* 
NONE .#---~----=-~ *. ONE 0 Benen n nena nna nn- -* ~ YES .*° MOVE *. NO ze RSLT(CRT * 
*2WHICH OPERAND.* >* USE TO * >*) DIVIDEND IN .* >*. NEEDED 2 >sD0u f; IP RR NOT* 
-IN A REG .* *DETERBINE WHAT * * REGISTER . a 2 “ AC ® 
: * TO * *. 5 *, -* 
Le SEE EERE OE EE EE EEE *, ye * 
*” BOTH *"H0 | +" YES 
4D069 \ SELGD mD054 SELDR 
ERE TERRERREREE SPSRAC 28 Renee hens REKEKCEFRKRESESEE 
| -$CEKNAT 376a3* * #CEKNHI 386A2* 
seen ao-S-o eae * SET UP TEST * 42-2 ---- =e NO 
* USE TO SEZ IF *—————>* CONDITIONS + * USB TO SELECT * 
* DIVISION PoS- * * * REGISTER PAIR * 1 
qhaskeiescecenses seuss ehabeedcars peeshssaneoeeeios | *, * | 
| *° YES 
| | 
| I | \. 
{4D063 { 
i Se eeep seeeseaeen SESSA H GEE AERERELE | SEMAN HH KESSSEARE ERE 
SCALL, SELOB PINDS *IF RR NOT DIV, * CALL SELSR (SEL* 
| * WHAT * SET DIVIDEND’ * sREG) EDIT (LD) + ® 
>*N EMAC 2 Br h2 * *REG. 25ibs MEMAC# *INSOT (GEN LH 
* FOR DIVESOk) * ¥(X2 SET * x ASAR (DIVISO > 
* * | 13 48e 2 432, HORY * 
ERK AARKEREERE *DIVEDERD: ae Sezen sisGSesosne eas eee 
' 2ee 
+ = 
| | * £5 #> 
< * * 
{ eee 
MDOSB SELDa 8D027 
RESERE [REESE ERESS HECHT EL QSSSESCEKES SEEKER EREKAS EEE 
*CEKNHT 386A2* *SET LR. IP CHPL* SCALL INSOT (SRD A* 
Senee nine eee * SET LCR.CALL * 32). IF 
* USE 10 SELECT * * INSOT (GEN * 2 RR thes CALL #< 
* REGISTER PAIR * LB/Lc } seDET(Di{ «CALLE 
* * soPND CEE Sux) + DR) 
REKECRERERERAVESESE se ceusseseeeen ee wane eee EZR ase 
t 
-*. mDO6O 
F1 *, SERRHE IS SHRER HEED HERRAP ORAS ERE EE 
-* *, * SET UP VALUE * *CALL OPND (CNT * 
-* La *, YES *X2,B2,D2 SET TO* SDOWN) » -ASAR(RE-s 
*, NEEDED +> * DAL CALL EDIT * * SULT MENOR \. * 
*) wt * LA) * SSET X2,82,/RSL, * 
ve oe EEOKEEER EE EEEE EEE Ssacenbislecessst 
+7 NO 
| 
SHEE EG 1 EER ES SE EEX \ 
*CALL HEMAC X2, * { ORS GO HERE ERE TE 
* Ba, ala i * * 
sD) 8 tL Le wipe i * RETURN * 
- * * 
t SREKKSKEREKERESE 


<< 
an 


mDOS1 -*. 

SEEKKY 1 EREEEERERE H2 *, 

eee gi QOF {GEN : -* *. 
OR Ay -* RR *, NO 
*OEuD (coo & 4 ——____pal” pr¥ive 7 
*DIVIDEN DOWN) + oe sot 

peseeeeeeeeeneene ss i 
| YES 

eee 

* * 

* £5 * 

* * 

eee 
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Chart EW. 


Pret Time rir irr ers’ 
* * 
* 


* 
ca DZ=CONSTANT = 


: * 
REE EKEKREK EEE ERE 


ov200 
SEER EE ORE RE RE ARE 


*CALL oe eS AY * 


HEA SEES EKER EEE 


| 


REREKME | EEK EERE EES 
* * 
*IF WEMGRY SIGN * 
*#¢TREE SIGN, CALL* 
* INSOT (LCA RR) * 


EERERERREEEEEE EER 


ep cc a fe Seay he 


fe 


ee ae pe a i ee i A i ee 


> 





Add by Load Address 


CEKOV1 LADDR 
EERE DOERR EREREK 

* * 

* ENTER * 

* * 
RK EREREEK 


FREER TERK ERERERE 


*LOP=LEFT OP LOC* 
* ROP=RIGHT OP * 
*LOC.SET X2, B2 * 
* D2=0 * 


* * 
HEREKEEEAKEEKERRER 


* 
| 
| 
| 
ov100 \ KEY? 
* 


EREKE)) DEO KERE RES 
SCEKORY 378A1% 


LOP 


. : 
* * 
* * 
KERR EEEKAKEEKE RES 


REKEEP ZEEE EEEREKEE 


R=REG NO. 


eH 
Ce 


KEKKEHKES SR SEESREEE 


9b errno 
. 


G2 *, 
.* 
REG - NO 
*. SIGN= IREE .* 
-, SIG - 
soul wee 
* YES 


SSeeSH ZS eeeree es © 


X2=R 


HHHRRH 


* 
* 
* 
* 
* 
* 


EREKEKES SEK ES 


| 


| 
ov250 KEY1 
REREE] LESSER ESE 


*CEKOR1 378A1* 


Ram wemer ee emn ent 


KEE 
* * 
* 83 * 
* * 
ERR 
| 
o*. 
B3 *, 
S * 

. ROP IN *. YES 
oe 8 REGISTER .* 
ve. * 

*, * 
* NO 
1 
1 
| 
0v350 v 


HREAEC ZEREREEE SER 
*CALL SELSR(ANY * 
*R NOTX2). MEMAC* 
* (TOP), EDIT * 
* (ROP), INSOT * 
* kop) * 
REEKEKREKESEEESEEEKE 


a eee oe 


HEEKKY) ZR REREREREE 
*IF MEMORY SIGN * 
*# TREESIGN, CALL* 
*INSOT (LCR &,R).* 
SEALE. ASAR(R LO" 
*” ROP) B2=R * 
REKKKEKEKEEKEECACE 

{ 

| 


‘ 


eeeee 
*319* 
* B2* 
*** 
* 
0v110 <*. 
6 *, 
* *, 
o* R - YES 
>*, GLOBALLY . 
*. ASSIGNED . 
*. * 
+. ye 
NO 
ov1i5 \ 


SEKKEY BK SKERER ESE 
* CHANGE ALL * 
*QUANTITY SIGNS * 
* IN MRM TABLE * 
*ENTRY. SET R1, * 
* k X2=R * 
eanneshe statannes 


| 


i 
0v135 INSOT 
SFERE) IGG REEE EES 


*CEKNIT1 397A1*® 


Ron me eee eee 


* FE * 


. ROP * 
* * 
HHRSEAEEEEEE DE RES 


eee 


eee 
w 
w 

eRe 


eRe 


* LCR R81,R2 * 
* * 
CREE EE SEES EERE R 


Siete BASSES EES ES 


* 
* * 
>* R=REGISTER * 
* * 
* * 
HEA ERE EERE REE 


c4& *. 
* * 
-* - *. YES 
*. SIGN = TREE .*— 
: N . 
get ciae 
* NO 
| 
ov260 o*e 
D& +. 
o* *, 
* R *. YES 
*, GLOBALLY 
*. ASSIGNED .* 
*, .* 
*, .* 
* NO 
{ 
i 
ov265 v 


FEE ERE ERE EEERERE 
* CHANGE ALL * 
*QUANTITY SIGNS * 
* IN MRE TBL. *-— 
* EyTBY- SET * 
* R1 xX2=R * 
cone ge se ieee es 


Ov180 


ert ShGh Ree ee ent eS 


*CALL SELSR (ANY * 
>£°S) SET 82-8, ¢ 
. R1=5,X2= . 


RECSEEKAEREEEEEEE 





(LADDR) -- CEKOV (Page 1 of 2) 


SETERCS ELLA SE NAS 


5 
>* B2=R 
* 


* 
* 
* 
* 

* * 

PREECE EE REE 

eKE 

{ _ *319* 

L>* B2 * 

* * 
HEE 


0v300 
RREKKYS CEREEER ERE 
* 


*CALL SEESR (ANY 


* 

* 
> eR anoe rch Rs Roe r ag 
* 
* 


SEKKEKEKERERE EEE 


ov290 
RERESES & 


SCERNT] 


* LCR R1,R2 .. 
* * 
ERERERAAEEAEER ERE 


EERE 
*319* 
* B2* 
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Chart EW. Add by Load Address (LADDR) -- CEKOV (Page 2 of 2) 





KEK 
*319* 
* B2* 
x 8 
* 
ov400 -*, 
HERESD LEREREER ERE B2 *, 
* * °*X2=0 ORF. 
* * No .* X2 *. 
* R1I=K2 ¥¢ *. SELECTABLE .* 
* * *. % 
* * *. .* 
KEREREREREREER ERE *,  * 
| YES 
ov4atd -*, 
c2 *. 


-* B2 me, 
#2 SELECTABLE .-* 


*, -* 


*, * 
* NO 


FERRED 2EREEEEE RES 
* 


R1=B2 


REESE 
ee nee 


SESHEKEEREEREE EES 


cp a fa SS aN ONS nt a A/T geen py 


ov4os 
RESALE ZEEE ERS EERE 
* * 


*CALL OPND(LOP) ,* 


>* OPND {ROP) *< 
* * 


* * 
SHREK AESSESERKE 














Ov420 -*. 
c *, FESESECH ERE SER EREE 
.* *, * CALL RSLT * 
-* B2 *, NO * {RoR , SET * 
>*. GLOBALLY -* >* 1=B2. CALL *— 
*-ASSIGHED .* = OPND (LOP) . 
i “8. * SSRSECKESERERESEES 
* YES 
| 
OVv430 -*. ova4ao 
D3 =, REESE DY ORE RERRESS 
* *, * * | 
-* X2=0 OR *. NO *CALL RSET (LOP) * 
*. X2 GLOBALLY .* >*SET RI=X2. CALL* 
*- ASSIGNED |. * OPND (ROP) : 
val ye RECESAAE EE RSET EES 
* YES 
ova35 | SELSR | 


RERSHEIESARSE RE RSS 
*CEKNG1 384A2* 
Hoo +--+ + ==. —* 
* * 
* ANY R RI=R * 
* * 


SRECHHKAESRAELESES 


Beg ape 


ovs00 
SHE SKE 2 SRE ESEEESE 


raft PERE EES 
* aSaR gasstch’ * 
* RESULT TO 81) * 


FERESERSECHERESE SKE 


| 


ERREG LER REEE RE 
* 


* 

* RETURN * 

* * 
EEEREEE REESE ESE 
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Chart EX. Complex Plus Generator (CPLUS) 
CEKMG1 CPLUS 
SEEK A LEEK R REESE 
* 
* ENTER * 
. * 
SESE EREEER ES 
-*, 
B1 *, 
id *, 
sO .* BOTH *, 
*., CPERANDS -* 
« COMPLEX . 
*, * eEeKE 
| *, C* *320*% 
eeRaE * YES * C2* 
*321" -* 
* pis * 
e+ | t 
" | 
Vv KEY s 
REREEC TL EEE ERRORS KERKSC2ERESER EERE 
SCEKOCI 377a1s SCEKNDI 366a1% 
* : SELECT. BEST TO * 
. 2 *LOAD.SET RESULT* 


2.2 NONE. .320 C2 
coe -LEFT..320 F2 
1...YES...320 G2 
2..-BOTH..320 41 


SG1 


* SIGN, ADD/SUB * 


SEKKKSEEEEKAES AEE 





HERSEY 2 ERROR EEE ES 
*IF LOP SELECTED* 


SesSeD INSEE ESSE S 
*CALL EDIT (ROP) « & a 


* SET ACP=LCF * eaeccn LE 
*BOP=ROP. IF NOT* 
* SzT AOP=ROP * 
* BOP=LOP » 


EKKESCEKSERRESEK SEES 


Bee csicttcuccaley 
*SET BooEs CALL® 
*SELFR BEG BarRys 


meres oe eINSOT * 
TAGP+G * 
Ee Ris hopes) = 
sebvenssiasncotas 
eee | 
* * 
* BI *-—> 
* * 
ane 


"Rasen jesseseenns 


*CALL MEMAC pop) * 








-- CEKMG (Page 1 of 3) 


* KEG= *CALL OPND OB} = 
*CALL REBAC (A0P) * SCALE EDIT (BOP : 
*CALL OPND (AOP) 
Sao ceeesersecrese seeeeasantenseens 
eee | 
* 320 | 
* F2 * 
s “« 
eens 3 
-*. 
see eeeejeeeiieeess F3 O°. 12 cspetesssesses 
= * * *. * CALL Beat SE . 
* SET ACP=LOP #* -* *, NO * OR SDR Reb! 
*BOP=ROP REG=LOP* *. MGOPER=0 . #———__———>* INSOT og°8 
‘ REG NO. 7; “| Poca : poet eogesb" : 
Perrrrrtrr torre r rs "el ue teaneshoeeschesas 
eee i 2eRe 
*320 *320* 
£ Ge te 7 Ce 
+408 eee 
4G300 4G125 ASFR 
£ONSSG2 FER CREE EES Peretickrtiiiet ttt SeseaGysrecesese 
¥ * * CALL INSOT(AE * -CEKSO1— 
* SET AOP=KOP * * OR AD BO. ‘ * *ASSIGN REGISTER* 
SBOPs LOP Bren kOGs * INSOT (AE Re Re *. >*PAIR WITH SIGH *< 
taeee REG . Bore aoe a < bd OF AOP * 
+ +> 
#320" vabunssacawesoues Beebe el eat FEES REE SSEREREEE 
* aie 
en | | 
* 
1 
4G400 { 46205 
#R RORY HERES ERE ES Seeespzesecenrens 
*A\OP = LOP BOP =* *CEKNY1 383a1* Pert Sees teeeeeece 
*kOP CALL SLEO'S* Smee ows ocr rsor=s® * * * 
* (SEL TO REG). * * * >* £3 * * RETURN * 
* SET RESOLT * * AOP * * * * * 
® SIGN, MOGOPER * ® * eeee weeseeeeeaeeees 
Heeeeehs aasens tes SR EEREEESESEERERE 


| 
| 


eer ea lates na 5 

*IF LEFT OP, 

$825 408 BOP "geass 

* TF wok AZ,R1= *————___> 

* A0R, 202 REGS. * 

sstT Tee a0 P,30P * 
FeEKES 


Fee eEE eee 


SRERH IZ ECREETE SEE 

* IP SGOPER=0, * 

% SET OPSAER br * 
>* ADR. IF ¥ 

* SBT ope sEn TSR : 


sevenene ceeeasens 


EERE ST ZEA SEER EEE 
* * 


$ CALE RSLT 
* (AOR). 6c 
* “opE {Bop} : 


SREREKESESRESESESETE 








SESSR IYER SEERERE 
* CALL INSOT(OP * 


* B1,R2). ADD 2 
>aTo RigR2. “CALL * 


SINSOT (OP R1, 7R2)¢ 
HERES REET EREE REE 


_ 
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Chart EX. Complex Plus Generator (CPLUS ) -- CEKMG (Page 2 of 3) PAGE 321 


eEEKE 
*321* 
* Bit 
e % 


uG5S00 
HREEER ERE ESE ERE 
* 


* 
* SET AOP=LOP, * 
* BOE=ROP. CALL * 
* KEY * 
* * 
* * 


ERE REESE E 


-*, 
c1 *. 
«* WHICH *. 
. .» *OPERAND IN *, 
*. A REGISTER .* 
*. (RIGHT?) .* 


* * 


- 


weteruee 


2 ..-NQNE..322 a3 
cee eLEPT..321 £3 
16. YES.0.321 F2 
1...B0TH..321 G2 


ee EeE eEEKE 
321% #321 
* B2* * £3* 
* * . -* 
* * 
4G625 t §G600 
EEREKEL QSL ERE KELKE LESSEE 
* * * REG=AOP REG * 
* INTERCHANGE * *RESULT SIGN=AOP* 
* ~ OPERANDS *_____>* SIGN. TO=A0P * 
* * * TYPE, T1=BOP * 
* * * YPE * 
KECK SKEREK KEKE SE KEREEKSSKEREREREE 
eee IRR RE SE REE 
* p 
*IP AOP SIGN=BOP* 
¥SIGN,OP=ADD. IP* 
* “NOt,OP=suB  * 
EEE * * 
*321% FORE EERE EEE EEE 
* G2* 
* * 
* 
4G630 -*. NG615 RSLT 
FEREEG LEER EERE RES 63 *, FERERGY SAR EREE EES 
* * -* REG *, +CEKNY1 383A1* 
*R1=AOP REG, R2= * -* OPERAND "*. NO #o--------->-5--# 
*BOP REG. If AOP* *. TYPE = > +—____>* * 
*  SIGN=BOP * *. COMELEX .* * AOP * 
* * *, * * * 
FEKSREKKAEHEE EEK ES *, CF FREESE EKESKESEEE 
*" YES 
-* 
SEERA DR SEKSEREE ESE SERFS YI SERESEKESE Ay =, 
* * *CALL RSLT(AOP) ,* -* +, 
* IF AOP REAL, * *” MEMAC,OPND, °* -* REG=2 —*. NO 
* SWITCH OPS. * SEIT (BOS) , LaSOTS *. OR 6 —— 
* SWITCH R1,R82 * * (ADD OR’SUB * +s -* 
* * * REAL PARTS) * *, -* i 
REKKECEKAKSEKESE SSE RERERKKKAERKEREER * * 
; YES 
| 
eetKe { 
age "G620 EL 
SREKK IDE SKABEERSE -* FREEK IG SSESSSHAKEE senna soueeeese ees 
*CALL RSLT(AOP) ,* * *CALL SELPR(SEL * *CEREQ1 388A2* 
* OPND (BOP) * * REG-2), INSOT * Binns -- =a * 
* INSOT(ADD bp * .*(LD REG+2 PROM * > * 
* SUB B1,82) * + REG). REDUCE ¢ * SELECT REG+2 * 
RERSKEES SSE ERS ESKER EKKELSEARSESSES SECEAESESEREEAEAESRE 
Been eesee 
*320* #322 
* Gus NG618 +” P38 
* * SETS KY SSA SRSEKEAES - * 
* *SET LINKED-PAIR* * 
* FLAG IN MRA * 


*TABLE ENTRY FOR* 
* REG * 


* x 
SHESEKESTLERSESSARSE 


eesee 
*322* 
* E* 
s* 
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Chart 


EX. 


AEMESDZESEAETN 8% 


tse RESULT stGus 


* 


=BOP SIGN 


* 


REKEKEREEEERHEREE 


i 

{ 

v 
*. 

c2"*, 


* *, 








EEE 
*322* 
* AQ* 
*« * 
* 
| 
v 
*. 
Az”) 
e, 
YES .* - 
*, Ct 
* NO 
' 
~ -| 
NG54 
RORERD ZI ESEEEES EEK 
*SET OP=SU3, IF * 
BOP SIGK= * 
* RESULT SIGN +* 
* INTERCHANGE * 
* "OPERANDS * 
KEKEKEKEEEEESEKEEEKEK 
! 
NG545 | 


HER EKC J HREER EE EEE 
*CALL SELFR ee ; 





INSOT 
FESREPY EHEREESE RE 
SCEKNTT 397A 1% 


>*LOAD THAGINARY_ * 
gPagT INTO REG+2 


SERERES EESESETESE 


.* BOP - YES * BAER) pSER 
*-SIGN=DESIRED | .* TD FOP ND art ts fase : 
* : ‘ 
*. 4¥ | saeeeeecaeheduses 
oS | 
| 
-*, 
D2 e, | EREKKEY FEREEESEE KEE 
-* * *IF AOP NOT REAL* 
YES . oP *R1=REG+2 ADD 4 * 
*> CONSTANT = <# * OR 8 TO D2. * 
{ - CALL LNSOT(LOAD* 
*, -* *” IMAG PART) 
*, veen ee cepenekaees 
| me | went | 
*322* 
j ‘ia B3 +> 
* * 
. } i +404 
-*. 
NG530 E2 *, Nagar s eee reer rem 
.* * {|  *CALL MEMAC (BOP) * 
: OP ~ NO SOPND (BOP) DIT * 
*. CONSTANT  .* > fisot + 
z bp OR SUB 
*, -* * REAL PARTS) + 
*, 4 SHEETAEKAEKEKEECES 
*" YES | 
‘ 
-*. 
ere nee a tee tare a? *o, 
SINTERCHANGE soe -* BoP 
OP *. REAL 
* * ey * 
ESKKKKAEKAECBRESLE *. 
. YES 
> 
sates 
#3208 
4GS07 * Gat 
REREEG DERE HEERK OEE * * 
* CHANGE SIGN, * * 
+ AopgsuB. CALL * 
CONR4,8 SuCs 
son ie) SET vSihe 
ee yega Epis 


SECSERESEKEESEREEKRE 


* 


"=, OF 
* YES 


INSOT 
FER SEHERERSERESE SE 


*CEKWI1 397A1* 


ee ae ae ie ee 


* COMPLEMEST * 
SIMAGINARY PART : 


SREESKEASES HEELERS 


+oene 
*320* 
* Gye 


-* *. NO 
« OP=SUBTRACT .* 
* * 


*tae% 
*320* 
* Gye 
** 
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Chart EY. Complex Mu¥tiply Generator (CMUL) -- CEKOF (Page 1 of 2) PAGE 323 


CEKOF1 CMUL 
ReeeA eRe RE RASS 
x * 
* ENTER * 
* * 
SERRE EERE RED eaee 
ONE QPERAND REAL *323* 
THE OTHER COMPLEX * ,53* 
Fd 
| BOTH IN 
-*, OF200 OP105 EMORY 
Bl ® FORKED SSeS R RE EES SERESRS OORT ERREED 
-* *. * AOP=REAL OP * *CALL SELEr(s EL * 
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Chart GF. Make Synonym Assignment to General Register (ASARS) -- CEKMN 
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*DISPLACEAENT + 
PEP SP SESE FS 


PEKREK DR ERREE EERE 
* 


* 
*UPDATE TABLE IP* 
* NEEDED * 


* 
* * 
KEERESEE SE REEEESE 


606 





CEKMNI ASARS 
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HEREAEE SESE SESE 


* 
* 


PAGE 392 


-Chart GG. 


MPOOS 
+4] 244444 4% 
ge tea SET* 


* 
“Erne LEME supe 


Lace ENT * 
* censenneeen 


HERSEK QESEERES EEK 
* * 


* UPDATE PROPER * 
STABLE IF HEEDED®. 


* * 
SHES SESSE SEEKERS 





CEKMP1 ASFRS 
TESS RP@rotrr icy 
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a THTTTALIZE «i 


LOOP 
* “entny SYwonya. 
OR REG 


ERE RERE 


* 
* 


a 


mP001 
YES .*° x 
*,) BUSY=ZERO .* 
[ *, * 
*. .* 
-~ o«* 
| NO 
-*, 
D3” 
* 
-*° MR MPR" *, 
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Chart GH. Find Temporary Storage (FNDWS) -- CEKMT 
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Chart GI. Release Temporary Storage (RLSWS) -- 
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Chart GJ. Register Memory Clear Routine (FLUSH) -- CEKON PAGE 396 
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OUTPUT 8-BYTE * 
* ITEM, CODE 2, * 
* @iTH’ LINE NO. * 
* ~ADD 8 TO CFT * 
* * 
* 


RHESHEKLEKERAERE 


* 


YES 








<———_—>* 


A 





Subroutine 


ee RISE REE 
* ADD 2 TO 


>* LCTR, & TO 
* chr. 


KEREKEEEERE 


ee Ep eeKkeee 
*SET STCL = 
* 8 AND SET 


BEERS EE 


MEG ZI RRAEKED 
* 
* aDD 4 TO 
cFrr 


m? 
EEEREEEES ES 


ay eence ce 
* 


ADD 4 

LCTR, 
* 
SREEKEREREE 


NI600 


KEKE ORKESEEESEE 
* 


* OUTPUT 
>SITEM nee ID= 
AND S¥YMT. 


‘ 
RREKEKES SHAE SEE 


* 


* 
*. 


* 
* 


* 
x 


* 


* 
TO 
crt 

* 


2 


(INSOT) 


| eS yf 





>*SYMT IN SECOND *———_———-—_—__-> 
* WORD * 


*. 
* 


beget oe ll 


* 


1-WORD * 


*. 
* 
* 





CEKNI 


NI1710 


EERO RREEEREEKE 
x * 
* ERROR EXIT * 
* * 


RREEKAREKKEREKE 


CODE PILE 
OVERFLOW 


ery 
* 
. 
* 


230 { 
REESE CYH EEE EEEEEEE 
* SET OP,R1,R2, * 
#82,02 FE 

DS 70 CODE * 
*PILe. ADD 4 TO * 

*LCOTR TO CPT * 

seGhicateceseces 


RRERCS EERE ERERK 
* 
* RETURN 
* 
RREREEEEEEREERE 


* 
* 


a ce nce gen eres Seca A ctu th ou Senna Sn san EDEN au SUP ca ean ANNE ce Seneca ct cenemmciae 2B 


escustenees 
* SET * 
* STATEMENT * 
>* FIELD IN SECOND* 
* WORD * 


FREKEEERESE 


gill 





A 
ee eee 
*397% 
* K5* 
** 
* 
NI700 | 
{take ataee SHRCER SEAS SSET ESE 
4 
F 


* ADD TO *e * OUTPUT END 
>* crt SSS PROGRAM ITES. 


* * * 


* 
* 
* 
* 
* 
REKSECAEREE EKKEKKEEEEAKAAKEEEE 


Section 8: 


Flowcharts 


PAGE 397 


611 


Chart GL. Object Program Module Builder (BUILD) -- CEKSB 
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Chart GM. Common Control Section Generator (CMSEC) -- CEKSC PAGE 399 
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Code Control Section Generator (COSEC) 


-- CEKSF (Page 1 of 3) 
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Code Control Section Generator (COSEC) -- CEKSF (Page 2 of 3) 
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; SK930 COT Ent : 
*LST POUND REF) 
seerenececerer bee 


Routine (CRFSRT) -- 





| 





$k900 


KES AYLSSERSKEEEE 
* * 
* ENTER * 
* * 

RERREEEERESE RED 


FERESERY SSSA REE RES 
- CONVERT LINE * 


a 0o3 ior EBCDIC * 
OPF * 

: LEADING ZEROS : 
Feeee eee eR CETTE Ee 


S$K920 -*. 
ca * 


-* IS *. 
-*THERE ROOM *. 
*, MN PRINT : 
*. LINE -* 
es, * 


*. (+ 


* NO 


SENG SEF ASS 
* * 


* SET THE * 
* INDICATOR FOR * 
* BUFFER FULL * 
SSeEEKKEEEE 


800 OLR 
HFS SSGH SESE EE RES 


SCEKTHE 023A3* 


+e 
*PRINT THE LIVE = 
* * 


SRESESSEESSKERESAE 


$OO80 3G SERS ESE RES 
ones LIne Cure 

CALL® 
a reeae b (baect ed 
. as 


PECLSSES SKS SESESSESE 


SOSedTS OPH EA OSE SS 
eset ron ee SINGLE : 
* ; 


* 
seeeeneseeseseees 
eee 


* FI ¢ 
* 
“eee 


CEKSK 
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HEEKASERAAEEE EE 
* 


* 
ENTER * 
* 


PRKKEKKKEKERE EE 


| 


£EEEERS ORES ER EEE 


SAREE EKER EEE 


ERECH HERES ER ED 


* 
RETURN : 


SERSECKESEAERED 


EEEEHOEERESEREE 
x 


RETURN * 
* 


EKERSEEEEKESEREE 


SSSA eeeeeases 
* 


RETURN * 
* 


SEKAEETESEERE SE 
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PROGRAM REPRESENTATION FILE (PRF) 


APPENDIX A: 


Program Representation File entry iden- 
tification values are as follows: 


“= tdentification 


Entry Name 
Begin Program 
Subprogram Entry 
Aiternate Entry 
Label Definition 
Equation 
Unconditional GO TO 
Assigned GO TO 
Computed GO TO 
ASSIGN 
Arithmetic IF 
Logical IF 
CALL 
Argument Definition 

Point 
RETURN 
Begin Loop 1 
Begin Loop 2 
Begin Loop 3 
End Loop 
CONTINUE 
READ 
READ with Namelist 
READ without Namelist 
WRITE 
WRITE with Namelist 
PRINT 
PUNCH 
Output List Element 
End List 
File Control 
STOP 
PAUSE 
End Program 
Input List Element 


Field Identifiers 


All fields marked “not used" contain 
ID appears in every item and iden- 
tifies the kind of item. 


zeros. 


Code (16) 


ty ty DCAWPKO DNINDANEFWNHE 


Other fields, 


the 


IDs of the items in which they appear, and 
explanations of the fields, are: 


Explanation 
Abnormal Function flag. 


Symbol Table pointer to 


label descriptive part 


Field IDs 
ABN 5,A,B 
ALAB 9 
entry. 
ASTX 2,3 


part. 


Symbol Table pointer to for- 
mal argument descriptive 


BL3PT 


BEG 


BLiPT 


BL2PT 


CDP 


CEX 


CNT 


EDLNK 


END 


EOF 


ERR 


ESLOC 


Appendix A: 


12 


10,12 


12 


12 


5,A,B, 
C,1l1, 
21 


1E 


11 


10,12 


14,15 


14,15 


4 


INTERPHASE TABLE AND FILE FORMATS 


ee 


a rE 


PRF pointer to corresponding 
Begin Loop 3. 


Symbol table pointer to low- 
er loop limit descriptive 
part pointer. 


PRF pointer to corresponding 
Begin Loop 1. 


PRF pointer to corresponding 
Begin Loop 2. 


In Phase 2, zero; or a link 
to the previous PRF entry 
in which COMMON was rede- 
fined. Redefinition is 
either by a call on an 
abnormal subprogram or by 
definition of a formal argu- 
ment called by name. Or, a 
link to the previous PRF 
entry in which a COMMON 
variable was defined. 


EF pointer to subroutine 
entry, in call (;) expres- 
Sion, or alone if no 
parameters. 


No. Of characters in 
message. 


PRF pointer to corresponding 
End Loop entry. 


Symbol Table pointer to up- 
per loop limit descriptive 
part entry. 


In Phase 1, label value in 
binary of End-of-file 
return. Negative if 
reference is to next 
statement. 


In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. . 


In Phase 1, label value in 
binary of Error return. 
Negative if reference is to 
next statement. 


In Phase 2, Symbol Table 
Pointer to label descriptive 
part entry. 


Estimated location in object 
program. 
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ETRA 


EXITLB 


FLAGS 


FLAGS 


FLAGS 


FNSW 


GLAB 


GLNK 


GTRA 


ITLNK 


Inc 


IVAR 


LABF 


LABN 


632 


A 


4 


14,16, 
17,19, 
1A 


11,12 


1D 


11,12 


6,7,8, 
A,B, 
c,14, 
15 


ali 
10,11 


10,11 


19,1A 


15,18 


Zero branch. LEV 
Symbol Table pointer to 
label outside a loop 
branched to from within a 
loop -- Set by Phase 2 for 
determining Materialize on 
Exit optimization in Phase 


LINO 


Bit 7-Statement is labeled, 
but must be referenced. LLNK 
Bit 1 - Non-zero indicates 

no list with I/O statement 

(X'80'). 


Bit 2 - Non-zero indicates 
LABF is an expression file 
Pointer (X'40"). 

(Left to Right) 
X*80° - 
x*'4o* - 
X*20° - 
X*10° - 
x*'os' - 


Labels in Loop LLNO 
Unsafe Loop 
Materialize 
Parameter 

Global Flag (inner, 
no external calls) 
BXLE on Rec 

ONEASN (remove 
floating load) 
IOFLAG (Phase 1) 


x'04" - 
X"02* - 
X*O1" - LTRA 
0 for END FILE 


1 for REWIND 
2 for BACKSPACE 


Symbol Table pointer to 
created loop top label 
descriptive part entry. 


Link to previous PRF entry 
containing a label reference 


Positive branch. 
NARG 
Link to previous PRF entry. 
NOEL 
Symbol Table pointer to loop 
increment descriptive part 
entry. 


Symbol Table pointer to loop 
variable descriptive part 
entry. 


ODP 


Symbol Table pointer to OPD1 
FORMAT label descriptive 
part entry or Expression 
File pointer to Format vari- 
able name. OPD2 
Symbol Table pointer to 
Namelist descriptive part 
entry. 


ODLNK 


PDLNK 


11 


all but 
1,4,D, 
10,11, 
12,1B, 
1c,20, 
21 


2,3,4 


1E,1F 


11,12 


Level of nesting of this 
loop. 


Line number in packed 
decimal. 


In Phase 1, link to previous 
PRF Entry or Label Defini- 
tion entry. 


In Phase 2, link to previous 
PRF Entry or referenced 
Label Definition entry. 


In Phase 3, link to previous 
PF entry or referenced label 
definition entry. 


In Phase 1, label number is 
binary. Negative if . 
reference is to next 
statement. 


In Phase 2, Symbol Tabie 
pointer to label descriptive 
part entry. 


In Phase 1, label value in 
binary for negative branch. 
Negative if reference to 
next statement. 


In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. 


X*00008000' if reference to 
next statement. 


Symbol Table pointer to 
alphanumeric message des- 
criptive part entry. 


Number of ASTX fields. 


Number of LLNO fields. Set 
by phase 2 for IDs 10,11. 


PRF pointer to Begin Loop 3 
entry for next outer loop. 


EF pointer to variable or 
subscripted variable. 


EF pointer to left side 
variable or subscripted 
variable expression. 


EF pointer to right side 
expression. 


Link to previous PRF Begin . 
Loop 3 or End Loop entry. 
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PLAB 3 Pointer to created Label 
descritpive part entry if 
flow into Entry statement. 
Set to X'8000' if no flow. 
PLIB 1F Symbol Table pointer to 
PAUSE subroutine descriptive 
part entry. 

PNAM 2,3 Symbol Table pointer to 
Entry Name descriptive part. 


RIND E Return indicator. 


RVAR E If RIND = 0, 0 for unindexed 
return, Or constant index. 


If RIND # 0, Expression File 
pointer to variable. 
SLIB 1E Symbol Table pointer to STOP 
subroutine descriptive part 
entry. 
STNO 4 In Phase 1, label value in 
binary. 


In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. 


In Phase 1, label value in 
binary for true branch. 
Negative if reference to 
next statement. 


In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. 
A,B EF pointer to text 
expression. 
UNIT 14,15 Expression File pointer to 
17,18, unit designator descriptive 
1D part entry. 


Symbol Table pointer to 
variable on left side. 
VAR D Symbol Table pointer vari- 
able descriptive part entry. 
5,D, Link to previous PRF entry 
in which variable was 


10,21 defined. 


Ent Formats 


Begin Program (4 bytes) 


et ee ee 1 
| ID = 1 {Not Used | ILNK = X*"8000° | 
Ce ee ee a hse ne ee ae ee em ee a he eer aie ite ee see ae a er a a a mene 4 


Appendix A: 
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Subprogram Entry (Variable Length) 


woo he eee erage ee Ne ee, ee ye ete ne pee ud 


{| ID=2 {| NARG | ILNK { 
}---------1----------------—------------- { 
| PNAM | X*8000° | 
}--------------------4-------------------- { 
{|  LLNK = X'8000° { ASTX { 
}---—----------------1------------------ - 
}------------------- ~-------------------4 
| ASTX | ASTX or Not Used | 
[---—-------~--------1-------------------- { 
{ LINO | 
petite ee eet ee ae a ad 
Alternate Entry (Variable Length) 

Seer ee Me ee ee 1 
| ID= 3 { NARG | ILNK | 
|---—--- —-i--------- -t------------—------—- 
| PNAM { PLAB | 
p--------------------}-------------------- 
i LLNK { ASTX { 
[------------------- —1--------------------+| 
f----—---——_----------- eee ee er ees 
| ASTX | ASTX or Not Used | 
|-----——--------—----1-------------- —---+ 
{ LINO | { 
sae ncaa Se oe ate are gra eae Racca acetal 

| Label Definition (12 bytes) 

preter ae te gc : 
| ID= 4 | FLAGS | ILNK | 
}-----—--- ce alec lc a a, —4 
{ STNO | | 
j--------------------,-----—-----------—-- 
{ LLNK { ESLOC | ft 
aes ee ae as el es 
Equation (10 bytes) 
“= a Se SS ee ee ey 
| I= 5 | ABN | ILNK | 
f---------4---------- ------—-----------—-} 
| OPD1 | VDP | 
}—----—-————---.-----4. ----------- --------- 
| OPD2 | CDP/VAR | 
|---------------—-- —1--—----------—----| 
{ LINO | 
ite eee a ee es ce el eon J 
Unconditional GO TO (16 bytes) 
(-- Se ee en ee 
|} ID=6 | NOEL =1 | ILNK { 
p---------1--------- ~}-------------------- 
| GLNK | Not Used | 
a a a aR aa ——4 
| LLNO | 
aS aa Ses= <4 
| LINO | 


On ee ao ce se ae ne eae ae ee a ee ree ee a ee er end 
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Assigned-GO-TO- (Variable Length) 


PS A SO TP CENT ED ATED cattle EE eS ee Se 


“TT & 
|! ID=7 | NOEL f{ ILNK i 
[---------1_---------}-----------------—- 


| GLNK | OPD | 


}------—-~----------4------------------- 


| LLNO I 


[}-----------------=------------------- 


Computed GO TO (Variable Length) 


sn ee ee rota ee 
|; ID=8 {| NOEL | 


f------—--1_-_-------}--- 


NK 

eee ern 
| GLNK i OPD i 
Sas 
LLNO | 
Se ee 
$ : 
Ses Se ee ee 
| LLNO i 
f-----+-- —-- +--+ 
| LINO | 


...—— LES PISS CRY SEAT CAP OE AED ED TS A casei aw cmc Gs mr a es cea eb coma a 


ASSIGN (12 bytes) 

Se cl 
| ID= 9 | Not Used | ILNK | 
}------—--1. —--- -——--—-} --- ———4 
| OPD | ALAB | 
}-------—---------——-—- —- 1 ------—- ------- -—-———-| 
i LINO | 


On a ee a es ee ee ee we crn a ae ae a a ae re ee ee re ee ore eS 


Arithmetic IF (28 bytes) 


ee ee MG er ee OI OE PI ee ty Be ke nase ee 
| ID=A [| ABN { ILNK { 
}------—--1----------}---_-_-----------_ 
i GLNK i CDP | 


p---—-—-——----—----4 --- --—---—------- —-{ 
Not Used | 





CALL (Variable Length) 


- 
NOEL | ILNK | 


| GLNK | CDP { 


| LLNO | 


Argument Definition Point (8 bytes) 


wee wwe ow. AS PS ED ETD ED SS a een ce See cane ee ve eae sah me ca am Semen ae es a me 


r —T 
{| ID=D {| Not Used | ILNK { 


[---------1---------- 4 --------------------| 


i VAR { VDP { 


eC ey A ee A RD eS ED 3 


RETURN (12 bytes) 


~------ ~-------}--------------------| 


— 
{ Not Used | RVAR | 
}—-—————----- ----- --- 1. ---__-_-_----_----- | 


{ LINO | 


Begin Loop 1 (8 bytes) 


| Not Used | 
dh 


| LINO 


Begin Loop 2 (16 bytes) 


nn nnn nnn nn nnn nnn nnn 1 


= 10 a Not Used i 


Begin Loop 3 (16 bytes) 





ae. a ae a ees 


: perae 
| ID = 11 | Not Used | ILNK { 
}---------1---------- 4 ------ -- —--------—-| 
| EDLNK | PDLNK | 


}------—---—-------—-} ---------------—--- 
1 ODLNK {| Flags | LEV | 
br--n- nn > AS Ale TS ENE -4—----~--—-~—] 


| CDP | GLAB | 
a i ee ee i llc ci ce i is aes ms wa ai ms sa ne | 


aN aa oes 


End Loop (24 bytes) 


12 ! Flags | ILNK | 


l IVAR 


}--------------------}--------------------4 


| BEG | INC | 


}--------------------}-----------~-------- 


| END | Not Used | 


+ —+4 
| BLIPT | BL2PT { 


Dae a cae cet ee ane eee er ee em ere ce cee aw de nee en ene aan ae ee ae oes a an ene ewe ome 


CONTINUE (8 bytes) 


i o- oo Te ee eee oy 
{| ID = 13 | Not Used | ILNK | 


p-------—--1-----~---—4------—-----------—--{| 


| LINO i 


READ (24 bytes) 


ye gt) tia ws A te pees FP Oe ee! tg ae ee ae ee 


{| ID = 14 | Flags | ILNK | 


}---------4----------}-------------------- 


i LABF | UNIT { 


p--------------------4--------------------+4 


i ERR i 


panna rn rn nnn nf 
{ EOF | 


== -5- = Ss ---| 
Not Used | 


READ with Namelist (24 bytes) 


- 
{ ID = 15 I Not Used 1 


ae a aaa a a 
{ ERR | 


}------—------------------------------- + 
{ EOF { 


}------—-------------y----------------- 


{ GLNK | Not Used | 


}--------------------4-----------------—--+4 


{ LINO 


Ben a ee ae ae a ee 


READ without Unit (12 bytes) 


CE ee oe woo ee a ge me eee re cre ———F 
| ID= 16 {| FLAGS | ILNK { 
}---------1----------------------------- 


| LABF | Not Used | 


}------—-------------4-----------------—-- 


| LINO | 


ne | 


Appendix As 


WRITE (12 bytes) 


—— Sa nee ee en oe ee a ee oe, 


WRITE with Namelist (12 bytes) 


ee EP ED ED ee ED ee ee age ee ee ae eee ae cee ee ee ee ee ee ee ee 


| ID - 18 | Not Used | ILNK | 


Tr T 
| ID=19 | FLAGS | ILNK | 


}---------1----------}-------------------- 


| LABF | Not Used | 


-_ 
{ 
{ 
! 
| 
| 
| 
{ 
! 
| 
I 
{ 
{ 
! 
! 
{ 
! 
! 
{ 
! 
| 
| 
{ 
I 
| 
| 
1 
{ 
| 
! 
1 
| 
! 
{ 
| 
( 
{ 
{ 
{ 
| 


Output nee Element (8 bytes) 


Cr ee Le ee ce mom oy 


~ 
i ID = 1B 1 Not Used | ILNK Ail 


a eS 


| Not Used | OPD | 
bo eee eee oe J 


End List . bytes) 


File Control (12 bytes) 


i ID = 


ee 6 
1D | FNSW r ILNK | 


f- 
{ Soe Used | UNIT | 


fen an rn nn bn nnn en nnn nn nen nas 
| ? LINO | 


| ee | 


STOP (12 bytes) 


{ ID=1E { cnt | ILNK | 
(=o =2 = ee 
| SLIB | MSS 
}-----—-—-- ---—- ~~ ------ 1 ---- - -- - | 


| LINO | 
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PAUSE (12 bytes) 


oe a an nnn nnn nnn 


| ID=1F | CNT ILNK r 


}---------4----------}-------------------4 


PLIB i MSG | 


}------—-------------4--------------------+} 


i LINO | 


bese eet eee oe ee ee ee eee eed 


End Program (4 bytes) 


ee ee es oe eee AEA UT AES IRC aD Sea i A AE A A EP A AH AA SE SD 


cr —~-T 
| ID = 20 | Not Used | ILNK | 
beeen ae eee ae Sted 


Input List Element (12 bytes) 


a a nnn nnn nnn 


-+ 
| ID = 21 | Not Used| ILNK { 


f------—-1----------4 -------------------} 


| OPD { VDP | 


}------——------------}----------------—- 


| CDP/VAR | Not Used { 


Ba eee ne cae cree ae ct ee re ae eee an em ene dle ae ae arene anne ae a nn ae an need 
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STORAGE SPECIFICATION TABLES 


Common Variable Table Format 


One entry per COMMON statement starts on 
a word boundary. 


| Storage | Symbol Table Index | 
Class | | 


| TERM* | Storage | Symbol Table Index | 
| {| Class | | 


bee er cen eee een an ew loner aw a emvere en om ann ae he en em ewan a an ane am oae ae an am an ame a ow em mend 


*Non-Zero denotes terminal entry. 


EQUIVALENCE Entry 


One entry per EQUIVALENCE statement. 


Entries start on a word boundary. 


(SSS assy ees eee Wicca ee 
EQUIVALENCE | ID=1 | END=0 | Number in Group (2 bytes) | 
--------- 4i——---—--~--~--~— i—-~---——~---~----—------—~—-~- 4 4 bytes 
IDENT | Line Number | 
Seek ea eee eS ee ae eee ee 
EE1 | Symbol Table Pointer | Type a Offset or Number of Sybscripts | 6 bytes 
bes ote ee Se eo Beene Na aan a a eal ei 
SN aaa a nS aa a | 
EE2-5 {S| Subscript {S| Subscript | 
belooeen ee ee ee eee eee SI a ea a J 
(eto oe ee oe ee ee ee 1 
EE6 {| Symbol Table Pointer | Type I Offset or Number of Subscripts | 
Da a a a I as a loan eS J 
ee ee ee ee ee 1 
EE7-10 [S| Subscript 1s] Subscript | 
t1__,-.—____-_.. ~o------------ 4—1------~--—-~-+——--------~ +---—--4 
| ID=1 | END=0 | Number in Groups | 
----41-~-------- 4 +--+ +--+ + - -- +--+ 7} 
EE1 | Symbol Table Pointer | Type | Offset or Number of Subscripts | 


EE2-5 


EE6 


EE7-10 


EE1 


EE2-5 


EE6 


EE7-10 


a a en a a a a ne ne a ee ee ae he ee re ne a hh eee eee ee oe oe ee ee a te ere ee ee on S 


(ose re a a ee de oe ee ae a a ee ee ee ee eee Sta eee te ee 


{S| Subscript |S] Subscript | 


bb nn. ee ee ee ee ee wr rn oe hee he eee we re ee J 


| Symbol Table Pointer | Type | Offset or Number of Subscripts | 


Ba eee cece an ae oe ae eee ae ee re ce ee cee ene cee ee aan ance ane rw ane cam ell eee am oe peter a een ane ee ane eee on ee ane wen eee an eran ae ees end 


Pe ee ee See ee 1 

{S| Subscri pt {S| Subscript | 

L.L__-—_—_—.—— —y-—--- +--+ - —1------------------------7-----4 
| ID=1 | END=1 | Number in Groups | 


~-—-L-~-—---—---~—1-—-~--7—~----4 -- —-. —- —- - +--+ — ~~ = - 4-75 


| Symbol Table Pointer | Type | Offset or Number of Subscripts | 


De ce ee ee we we ee ee we we re re eh ee ee ee ee en wm es ee ee ee ew wend 


Ce ee er er Ey ee en ee 1 
{s| Subscript {S| Subscript | 
bwhocsaeo se eee tee I ah ee eae 
Pee ree i ee ae ee 1 
| Symbol Table Pointer 1 Type i Offset or Number of Subscripts | 
a a a aloo A i is ca ae ae ab a SaaS 

Sa ee So ee ee 
{s| Subscript {S| Subscript { 
a a ae ag ean sa eae a ec lelasi 
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EQUIVALENCE Entry 


TS ES 


ID 


END 


TYPE 


Number in Group 


Offset/Number of Subscripts 


638 


Explanation 


EQUIVALENCE entry 
COMMON entry 


end of group 
not end of group 


Identifier type may be: 1, 2 


Unknown (00) 
Integer *2 (1,2) 
Integer *4 (3,2) 
Automatic (0,7) 
Real *4& (3,3) 
Real *8 (7,3) 
Complex *8 (7,4) 
Complex *16 (F,4) 
Logical *4 (3,1) 
Logical #1 (0,1) 


Number of variables in a specified EQUIVALENCE entry 


In the event that dimension information for a particular 
variable (from a DIMENSION, COMMON or TYPE statement) 
precedes the EQUIVALENCE statement, or that a subscripted 
variable in the EQUIVALENCE statement contains only a 
Single subscript, the offset in EE1 or EE6 is computed. 


When dimension information does not precede the EQUIVA- 

LENCE statement and a subscripted variable in the EQUIVA- 
LENCE statement contains more than one subscript, EE1 or 
EE6 contains the number of subscripts. In this case EE2 
or EE7 are required, and EE3-5 or EE8-10 may be required. 


High-order bit: 


1 = negative subscript 
0 = positive subscript 
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PRESET DATA TABLES 


Field Identifiers 


Field 
NUMB 


BPA 
ve 


DM 


Flag (Cross Reference List) 


Entry Formats 


Dimension Table 


Explanation 
Number of dimensions 


Bytes per array 
Variable/constant switch 


Integer constant value if vc = 0 
Variable,Symbol,Table pointer if vc = 1 


- symbol table pointer definition 
- symbol table pointer reference 
label value definition 
label value reference 


Fwnke 


' 


Declared array not a formal argument 


| NUMD | 


BPA | 


|------1--------------------------—------—--------—---—-_-+} 


| Bytes Per Entry * First Dimension | 


| 


NUMD-1i : 


-| 





| Bytes Per Entry * Product of First NUMD - 1 Dimension j| 
t 


2 AEDES ODD ERD RT RN a eG SE LO ED cevsvirivas aio i sam cs es a ainda es cai wre eis Goin ean cas cava 


Declared array a formal argument 


oD a a ae eS an ts ee ee ee a <n ae ap eee RE Pe aD ee ee eee as eS eS aay 


{ NUMD | 


0 | | 


---}------~---—-----------------------------—---—-—- 


| ve | 


DM | 


}------4--------—-------------___-__------------_------- 


NUMD 2 


~-----y----------------------—------—----------—------+ 


{ve | 


DM | 


Appendix A: Interphase Table and File Formats 639 


Page of GY28-2019-1, Issued September 30, 1971 by TNL GN28-3190 


Alphameric Table 


c T 
{| Continuation Link | Not Used | 


|--------------------4-------------------- { 
| Line Number | 


‘ 
SP AER ER STD TE OD RD ES EE ME EY Ce AEE GE EE ER ED Ce ee ie ee ee ee ee ee 


|Descriptive Part Pointer Size (Bytes) | 


wr nn nnn nn ff rr nn nnn ne 


}------—- a $--------- { 
| | | | | 
+ eo eee as aw ee ane a a 4 owe he ae ene ee 4 
j---------1--------- —y----------1--—------4 


fe Sp ea ee ee 
| Symbol Table “| Symbol Table | 
{| Pointer of { Pointer of | 
| Variable, { Variable2 { 
}------------——-----1--------------------- 
|--------------------7—-------------------+] 

Symbol Table | Symbol Table | 


{ 

| Pointer of | Pointer of { 
| Variablen-1 | Variablen | 
L 


Data Table 


{| Continuation Link |Symbol Table Pointer | 


a 


| offset | Number | 
| (3 Bytes) |of Values | 
aan nn nan mn nnn nnn nf a 
| Repetitions | 
| (3 Bytes) | Length | 
}-----—--- .-----------—---— —--1-------- --4 
{ Constant | Number of Values | 
| Type { | 
sas eat aaa 4 +--+ ----—- 4 
| Value 
}---------------------—---—--------------+1 
---------y-------------------—--—--------| 
| Constant | | 
| Type i | 
aah | 
| Value \ 


Cross Reference List 


a aaa aaa ST a a aa a ar, 
| Line Number | 


S.T.P. or L.V. | 


ao ae ce a ene arm cae ae ee eee ee oe ee ce ce a a ae aan a ee ae eens emer amend 


EXPRESSION FILE (CERF OR EF) 
The expression file is formed of indivi- 


dual strings of entries, each with the fol- 
lowing general format: 


640 


rn tr ey rr 7 


j EFID | EF Flags | Content | 


}----—----—-1-----~--—---1----~------—--~---—-{ 


| Content (Continued) { 
aah cs ea os eee aed 


As described below, both the ID and the 
content may take one of two forms. The 
strings are the usual right-hand Polish 
notation. 


EFID - FF = Null entry 


Form 1: 
01 4 7 


ft <= 
| 0 | Code| Type| 
Leeda 4 


Code: 0 Variable Type: 1 Logical (1) 
2 Logical (4) 
1 Constant 3 Integer (2) 
4 Integer (4) 
2 Function 5 Real (4) 
6 Real (8) 

3 Residue of 7 Complex (8) 
removed 8 Complex (16) 
expression 9 Literal 

4 Operator, 
general 

5 Operator, 
common 
or removed 
expression 

6 Adcon 


Form 2 (loop variables or parameters only): 


012 7 
ote 
{ | | Level | 
{1] | number] 
bh hi artes asad 

IV Flag 


IV Flag = Induction variable 
Level Number = Loop level 


EF Flags -- Both forms use EF Flags as fol- 
lows (left to right, beginning with high- 
order bit): 


x'80° Sign indicator (EFSIGNF) 

x*40" Subscript indicator (EFSUBS) 

X* 20° Last use flag 

Xx*10° Short form notation in I/O list 

X*80* Split recursive constant 0 
(Phase 3 only) 

x*4o° Global floating point register 
quantity 

Content 


Form 1 (variables, functions, and 
constants) : 


nn ne 7] 


r QUANT | 
(rrr nnn nnn nn fen : 
J 


| ADCON { 


Cn ee re ee cee ae cere en ee ew cee ede ce cr ee ce ew ae at ae a ae ane eee ee ee 
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|] QUANT Symbol Table (Descriptive Part 
Pointer) reference to variable or 
constant 
ADCON During Phases I and II this is the 
DISPL offset; during Phase III ADCON is 


made the Symbol Table reference to 
Adcon and DISPL is the immediate 


displacement 

Note: 

ADCON = 0 for subscripted variable 
ADCON = FF for Adcon page 


_ reference 


Form 2 (operators): 


SSS ee ee 
| NOT i 
| oP | ° USED | 
pocorn {-—--———_-— st sc sie 
| TRIAD | NAME { 
te ee aie een tala uad dani de oe ee es _J 
OP Operator code: 
Code 
(16) Operator 
00 + add (- by negation) 
01 * Multiply 
02 / Divide 
04 *% Exponentiate 
05 ’ Argument of closed 
function 
06 ee Argument of intrinsic 
function 
07 : Closed function 
08 -EQ. Equivalence (.NE. by 
negation) 
09 GT. Greater than (.LE. by 
negation) 
OA -AND. Logical AND (.NOT. by 
negation) 
OB $2 Intrinsic function 
10 : Subscript 
19 LT. Less than (.GE. by 
negation) 
1A -OR. Logical OR (.NOT. by 
negation) 
1B MAX Ma ximum 
11 : recursive add -- Phases 
3 and 4 
12 ? index add -- Phases 3 
and 4 
13 a dummy (to distinguish 
variables) -- Phase 3 
only 
TRIAD Expression file reference (Phase 3) 


NAME For : operator, displacement 
(Phase 3) 


For common or removed expression, 
identifying number (Phase 3 and 4) 
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Storage classes 128 to 253 correspond to 
formal arguments called by name. Storage 
class 254 is used for locations in the code 


STORAGE CLASS TABLE ( STCLTB ) 


Pointer to First 


Number of Named Commons Nin>common: Variable 


Number of Bytes in Storage Class 1 (Code) 
2 (Numeric Const .) 
3 (Alpha Const.) 
4 (Adcons) 
5 (Name - & Par. Lists) 
6 (Non-common Var .) 
7 (Global Temps.) 


8 (Local Temps .) 


9 (Blank Common) 


Entry for 

Blank 

Common 

aa 
First 

Named 

Common 


Pointer to First Variable 
Number of Bytes in Storage Class 11 (2nd Named Common) 


Pointer to First Variable 


aN 
Number of Bytes in Storage Class n (nth Named Common) 


Pointer to First Variable 


Pointers are Offsets from Symbol Table Base and Indicate 
Origins of Each Chain of Variable Entries. n < 127 





covered by a special class of address con- 
stants, whose values are filled in by Phase 
5. 


Storage class 255 is used for estimated 
locations in the code and is converted to 
storage class 1 when the correct location 
is entered. 
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PROGRAM FILE (PF) FORMATS OUTPUT BY PHASE 3 


All the program representation file 
entries, except begin program (identifica- 
tion code 1), are modified during Phase III 
and put into the program file. 


Field Identifiers 


The fields have the same meaning as for 
the program representation file entries, 
with the addition of the following: 


IDs 


Field 
10 


BEG 


Explanation 
Link to Polish string, 
INITIAL VALUE 
END 10 Link to Polish string, 
FINAL VALUE 
EXITLB 10 Symbol Table pointer to 
label outside the loop, 
where the induction vari- 
able must be material- 
ized. If loop has no 
exit, then EXITLB= 
X*8000‘'. 
FLAGS F,10, (Left to Right) 
X*80" Labels in loop 
X*°40* Unsafe loop 
X*20° Materialize 
X*°10* Parameter 
X*08° Global Flag (inner 
loop, no external 
calls) 
X'04&° BXLE on recursive 
X02" ONEASN (globally 
assign FP register 
6) 
X01" I/O implied loop 
GLBL 1 F 
to GLBL8 


Names of global expres- 
sions for this loop or 
Symbol Table reference, 
if Adcons. The names will 
have 7000, added to them 
to distinguish them from 
Symbol Table references. 
GBLREAL 11 When the ONEASN flag is 
set, this field contains 
a PF pointer to the left 
side of an assignment 
statement which can be 
globally assigned to 
floating-point register 6 
by Phase 4. 

When ONEASN flag is off, 
this field contains eith- 
er a symbol table pointer 
to a simple real variable 
or constant which can be 
loaded into floating- 
point register 6 outside 
of the loop, or it con- 
tains X‘'8000°. 
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INC 10 Link to Polish string, 
increment value 
IVAR 10 Link to Polish string. 


If materialize flag is 1, 
this is the induction 
variable; otherwise it is 
a test expression for the 
first variable in RMVAL 
chain. 

IVARSVE 10 Contains the PF pointer 

for IVAR saved for 

materialization on exit 


LABL 4 Symbol Table reference 

LLNK 4 Link to previous 
referenced label defini- 
tion entry. 

PNAM 2 Symbol Table entry of the 
ENTRY name. This field 
is ‘8000 if this is a 
main program. 

RMVAL F Link to chain of 

(Begin removed expression in 

Loop 1) Polish, with the format: 
Insert R 

RMVAL 10 Link to chain 

(Begin recursive removed 

Loop 2) expressions. 

RMVAL 11 Link to chain of 

(Begin common expressions which 

Loop 3) would be removable but 
for the loop variable. 

STCL 2 Storage Class Number of 


the respective argument. 


Entry Formats 
Subprogram Entry (Variable Length) 





{| IwD=2 | NARG | ILINK | 
|---------4---—------}-------------------- 1 
| PNAM | PLAB { 

~----------—----—} --—---—---1---—-- — 
{ STcL, [| STCLa { STCL3 | STCL | 
p---------4-~---—----4-- -- +--+ --- 1 --- J 
fon nnn nn nnn nnn nnn nnn 
{| STCL | Filler When Necessary | 
| NARG | | 
[--------- 4 + = ---- ---- == { 
| LINO | 
Oa i ee J 


Alternate Entry (Variable Length) 


ete en a ee a Sm ate — <<< = ee SD A ED EP GED ED ED a ES 

{ ID=3 | NARG | ILINK | 
~-------1----------4--------------------4 

| PNAM | PLAB | 
ne Sa ee eee 
{ STCL, | STCL2 | STCL, | STCL | 
}------ a ee ees Be ee Fuentes 4 

------ —~-y-----------------------------—-} 
| STCL | Filler When Necessary { 
| NARS | 
}------—- 4-----------~------------------- { 
| LINO | 
Mc a a ar cl 
Label (8 a 

So Eee ee ens en 
{ ID=4 inot Used | ILINK | 
f------—-4---------- }-------------------- { 
| tae i LLNK | 
bases Se Sonatas aR a oat et J 
Equation (16 bytes) 

(SSS See se _e eae 
{ ID=5 [Not Used | ILINK | 
}---------1---------- }--+-----~--------- — 
i opel | OPD2 | 
panes ee a ase 
| CDP | VDP | 
(S-= SS cere | 
{ LINO { 
a ee ee sed 
Unconditional SO TO (12 bytes) 
te eee eas Wo ee en Gs a a ee en are eae ek ores eee 
{ ID 6 PE Used | ILINK | 
pSHPstaeas tees SSS PiSeeae Sees 4 
| aay | (Not | 
| | Used) | 
}------—------------ 4-—-—-------------——- { 
| LINO | 
a eee ee J 
Assigned GO TO (12 bytes) 

a a i al i a la Te te + 
j| ID= 7 {Not Used | ILINK | 
eS fea PSS eee aces 
| OPD | Not Used | 
(SSS SSS eee Aas Se 4 
{ LINO | 
Ae ie ree Sa ae ee Sececal 


Computed GO fo (Variable Length) 


nn nnn 71 


{| ID= 8 | NOEL { ILINK | 
panna ab nnn pn ee enn 
{ OPD | LLNO, | 
|--------------------4--------------------{ 
J---- =~ == = + ---- y= - == -------- 4 
l LLNO | Filler when | 
{ NOEL | Necessary | 
)---------- -- ——--- - - -- 4 - - -- - - -—- -- -------f 
| LINO | 
Ue ae eee oa aes 4 
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ASSIGN (12 Bhasd 


So oneal tee 1---------- 

{ ID=9 [Not Used | Il 

panna $——--—----—~ 

| es | Al 

p———- Sa eis: 

i LINO 

Geto e ee ee ee eee 

Arithmetic IF (20 bytes) 
Seis ae {7-77 ~--- 

{1 ID=A [Not Used | II 

f-----—--4---------- $--—---~--- 

| rae | cr 

p----------—-~------- $———-- =~ 

{ LTRA | El 

pase SS 

| STRA | Nc 

}------------~------- Mi leery 

| LINO 

locetosiwe eS Sees See 

Logical IF (16 bytes) 

oS ee cS 

{| ID=8 TNot Used | II 

p—-+ +1 fe 

i TVAL | CI 

po-— naan nnn nnn nn $o--a--=- _ 

| Not Used | 7 

_ Lsososee as 

| LINO 

Bat Se et 

CALL (Variable Length) 

{i ID=cCc | NOEL {| Ti 

p-------—--4------__--- 1 oe 

| CEX | CL 

|--------------------}-----—--— 

| LLNO, | LI 

}-------~-------------1L___----_--_ 

i LLNO | Filler wh 

| NOEL { Necessary 

}--—-—++-—-——--—----~+— Bk a 

| LINO 

$e oo ee ee 


Da ee ee ee oe ee re ee oe ew ew he ee eee 


RETURN (12 bytes) 


pie cep ce guns eas ee ene 
{| ID=E | RIND | II 
--—--------—4+-——---—-—----+4------—---- 
| RVAR | Nc 
b LS LS SS A A SS A AS A eS A A a i ae 4 Se Ae Ee ID ee <eee <a eee _——_ 
| LINO 

a cs aa ee es Sass a a ea ce es eee ww one 


Interphase Table and File F 


Begin Loop 1 (28 bytes) 


Ce a er ee ee ed 
| ID=F }{ Flags | ILINK | 
f---------1---------- ¢-------------------- { 
| RMVAL | GLBL1 { 


}--------------------4--------------------+ 


| LINO l 


Begin Loop 2 (16 bytes) 


We eG oe ie a ney ee ee eee en ee | Ere a eh 
{| ID=10} FLAGS | ILINK | 


esses -= SaaS $C S Se aa 
| RMVAL i IVAR | 


ee 


| BEG | =ND | 


f-----------------}-------------------4 


i INC { VDP | 


Begin Loop 3 (12 bytes) 


Sr Se Hise Fo eee ERM Ee Se ee ee ep ae AR 


| ID=11] FLAGS | ILINK | 


}--------- 4----------}-------------------- 


| RMVAL | CDP | 


a ce ee ce ee eee are een een we cee ce ew ae le ce cee cw re ee a a a ne ee ee eed 


End Loop 


CS ae DN Rs pal ey oe er 


| ID = 12)|LEV ! ILINK | 


Lowe La en a da on ee el 


CONTINUE (8 bytes) 


Sew Sen Ciera se Seer tee ae ye ise Re eT ee wel = ae Oe 


| See Used | ILINK | 


| EOP | ERR | 


mae ae eae ae ean eens aan ae ee ee ee ee ee oe ee ee gp ee ee ow ere om ee 0 tee ee ee oo oe ee ee 


| LINO | 


READ without Unit (12 bytes) 


LS A ES SO EO ND SS SE oD De 


WRITE with Namelist (12 bytes) 


ag ee are ye Eg ee eee Dy es te toy Le EN UN Bee 


| ID = 18|Not Used | ILINK l 


Ua oe ae ee ee ne ne a eo we ee dS 


PRINT (12 bytes) 


Sige a ee ee oe ee 
{| <ImD= me Flags | ILINK | 

4 
| cape | X*8000° | 


}--------------------1--------------------] 


| LINO l 


Se AS eS SD AS ED ED GY ED A EE GE SO See aD eee ate eee ee 


r T 
{| ID = 1¢|Not Used | ILINK | 


Cpe he ee ee ee ee J 


File Control (12 bytes) 
c T 
{| ID= 1D] FNSW | ILINK | 


}—-----—-1-----—----}-------------------- 


i Not Used | UNIT | 


ln 
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4 


STOP (12 ei 





pS eer 1 
| ID= 1E| CNT { ILINK { 
}-----—---1-----------------------------} 
| SLIB | MSG i 
}----~----------- - ---- 4 ----—---- -- -- ---------- | 
| LINO { 
a eg ae her ee ae ee —J 
PAUSE (12 bytes) 
{ ID=1F| cnr | ILINK. { 
}--------- 4----------}--------------------4 
| PLIB | MSG | 
}----~-~-—---------- —1--~—-—---------------| 
| LINO | 
aa pads gan ana aaa ia a a si atic ina al 
End ee (4 bytes) 
| = 20|Not Used | ILINK = 8000 
tenes e Se dieiaain eo a a is 
Input List Element (12 bytes) 

a ip pe er ny 
{| ID = 21|Not Used | - ILINK | 
}-~--------4----------4----—---—--------- --4 
i OPD | VDP | 
}------------—-------}-----—---—---------—- 
| CDP { Not Used | 





CODE FILE FORMAT 


Statement Header 


Ce he SRD ED ESD ces eh cD cD cree Mae GE EP GD OD OE Oe ED ee te ae ee ee ee 4 


1 O21 | 0 | 
Line Number | 


| 
Mises Se ee ee eee an eas eae anes asmean as cee a ee ene ee ae cnee case ene ae eam 





Label Definition 





er ee aa Pe eee ee ey 
| 02 | 0 { Symbol T. Pointer | 
ET A RS Ee LT EY oe a ins ss sats ccs cs ao snes Gas alle ccs us cesbcmeetes ms cess insinuate ea 
RR Instruction 

foes ss SRS ee 1 
| OP | R1 | R2 | 0 { 
i. Sa ae SF EH AEE CE rpm le cas ss S'S a cc cs a se is i cia ce ets ni eet a 
RX ee 

Ct a 6 ee ee 08 @ oO pe Se ee <r _—- oa Se eT ee 
| OP 1 Ri | X2 | B2 | D2 | 
[--------- 4--——1-----}----1-----------—----4 
| 0 {ST. Class | Symbol T. Pointer | 


be ener neon ae een gee line ae nee an enna as Re oe ee ee are cee a a ae oe a | 


RS Instruction 


(eS ig a OMe ge a ey ee ee Fe 
| oP {| RL | R3 [| B2 | D2 | 


tet. Class I 


PD EE TD AT LP SEER GSAIAED ND AED =F 





Symbol T. Pointer| * 


*The an word - Seschintee ~- of an RS 
instruction is optional. 


Appendix A: 


Issued September 30, 1971 by TNL GN28-3190 


Label Reference 
(Displacement Supplied by Phase 5) 





re a para tea SD PR am NOD ED 


——— 
| FE | 0 | Symbol T. Pointer|+ 
~t----1-—-------— --+ 

| 0 { 
| { Mij{ R3|{ | | 
}---------4----1_---- -- 4 ----_---------+ 


| 0 | Symbol T. pouncer|= 
Mic ape ea Sealer cca aieriaanicaiah emtanaian cme 
4(ADCON Entry) 

2(LABEL Entry) 


End of Code 
( 
| FF { oO | 


a even ene chen abet esanenanaan. 


SYMBOL TABLE 


The Name Part and Descriptive Part of 
Symbol Table entries are placed in the same 
storage area but are separated from each 
other; the two parts are therefore shown 
individually. 


General Format 


Name Part (at higher address portion of 
table) 


fer 7eo 





i ee, 
--------}--------------—-----+ 


{ LINK | DMLST i 


Setting 
Field Description Phase 
NAME Identifier name in EBCDIC 1 
LINK Link to next identifier 1 
. entry in chain, otherwise 
X*80--",*END CHAIN®. 
DPP Descriptive part pointer. 1 
DMLST Dimension list pointer. 1 


Descriptive Part (at lower address portion 
of table) 





Ce ee rn ee ee 1 
| ID |not { Class | Flags |Type | ULEV | 
| = 0 |used| i | | 
| O-2 {2-3 | 4-7 { 8-15 {16-23 |] 24-31 | 


hh hh eee icc nn ant 
I. SLOC | STcL |. 


[-------------~------y--—---—-----4-—--—-] 


l LINKF | NUMENT | 
ee ee 


| FDP | 


Interphase Table and File Formats 645 
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Setting SLOC Storage location. Byte 1 2 
Field Phase Description used in Phase 1 for follow- 
ID Variable Name = 0 ing flags: (Left to Right) 
CLASS Identifier class may be: 1 
0 = Unknown Initial data 
1 = Simple variable Must not be dimensioned 
2 = Array variable Function name 
3 = Statement function Common block name 
4& = External subprogram Induction Var. in Namelist 
reference _ 
5 = Open (Intrinsic func- 
tion reference) Byte 2 used in Phase 1 for: 
6 = LIB (Library function External Flag 
reference) 
7 = Namelist 
8 = Label - primary and STCL Storage Class 2 
secondary subprogram 
entry except primary 
function name LINKF Link from descriptive part 
9 = Statement function to the name part. 1 
argument 
10 = OPENA (Intrinsic Fn 
with automatic typing) NUMENT During Phase 1, is class if 1,2, 
11 = LIBA (Library Fn with NAMELIST, the number 
automatic typing) -Of list elements. During 
12 = MAX (MAX MIN Function) Phase 2, the number of 
13 = Function Name of Func- words of storage required 
tion Subprogram for the array. During 
14 = Unknown Function Phase 3, the forward conm- 
pute point. 
FLAGS One-bit indicators which FDP Forward Definition Point. 1,3 
are: (Left to Right) 
During Phase 1, contains 
the latest PRF entry in 
X‘'80" Type Frozen which the variable was 
X‘'40* Formal argument name defined. During Phase 3 
X*20* Not Used contains the current for- 
X'10* Defined ward definition point. 
X*°08° Active induction variable 
X"04* Common LSTBDP If class is Namelist Label, 1,3 
X*'0Q2* Equivalence or Interfering* link to the chain of 
X'01" Nonredefinable elements of the Namelist. 
During Phase 3, contains 
the backward definition 
In Phase 1 X*'02' indicates point. 
equivalenced variable. In 
Phase 2 X‘'02' indicates 
variables which may inter- Specific Descriptive Part Formats of 
fere with each other. Intrinsic and Library Functions 
TYPE Identifier type may be: 1,2 
1. LIB (Class 5) and LIBA (Class 11) 
Unknown (0.,0) r--- a cr os 
Integer#2 (1,2) {ID | Class | No. of {Function |Index | 
Integer*#4 (3,2) {= Of {| Args. |Type 
Automatic (0,7) J [0-1] 2-7 | 8-15 {16-23 {24-31 | 
Real#4 (3,3) ~1t----—--~4-~---~-~--—-}----~----—---- 1 - + 
Real*8 (7,3) jArg. Type | Extern.| { 
Complex*8 (7, 4) | | Flag | | 
Complex#16 (F,4) f---------~~ 4+ 4 
Logical*4& (3,1) | LINKF | | 
Logical*#1 (0,1) -}-----~----------—~---1-----~-------- ~~ ----f 
{ { 
ULEV Level of the lowest loop in 1,3 t--~———~ wr nt 





which this is a loop 
variable or parameter. 


Index - Used by LIBA for table lookup in 
Phase 1. 
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2. OPEN (Class 5) 
es in 


a oe ee ee eed 
{ID 1 Class | No. of |Function | Function] 
j= O| { Args. |Type | Number | 

| {O-1] 2-7 { 8-15 {16-23 {| 24-31 | 
j---4------—}--------4----------1--------- 
bag: Type | { 
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The ‘OPEN class functions and their function numbers are listed in the following 
table. If the function does not have a name, a description is provided. 


Se en ee ee ee ee ee en ert 
| Function No. | Name | Description | 
[------------ ~—-}----------}--------------- --- + --------- + - 4 
| 1 | FLOAT { | 
| 2 | DFLOAT | | 
| 3 | HFIX | | 
| 4 {| IFIX,INT | | 
| 5 | DBLE | 
{ 6 | SNGL | | 
| 7 | IDINT | | 
| 8 | REAL | | 
| 9 {| oo | Convert L*#1 to L*4 | 
| 10 { -- | Convert L*4 to L#1 | 
| 11 {- {| Convert L*#2 to I*4 | 
| 12 {- | Convert I#2 to R#*4 | 
| 13 { om | Convert I*#2 to R*8 | 
| 14 { - | Convert I*2 to C+*8 | 
| 15 { - {| Convert I*2 to C*16 | 
| 16 | - | Convert I#4 to I*2 | 
| 17 | -- | Convert I#4 to Cc+*8 | 
| 18 { o-o | Convert I*4 to C#16 | 
| 19 (i, = | Convert R*4 to C8 | 
| 20 { oo | Convert R*4& to C*#16 | 
| 21 { = | Convert R*8 to I*2 | 
| 22 |} co {| Convert R*8 to C*8 | 
| 23 [== | Convert R*8 to C#16 | 
| 24 {- | Corivert C#8 to I#2 | 
25 | | Convert C#8 to I#4 | 
| 26 {== | Convert C#8 to R*8 | 
| 27 j- | Convert C*8 to C#16 | 
| 28 {| - | Convert C#16 to I*2 | 
i 29 {oom | Convert C*16 to I#4 | 
| 30 { | Convert C*#16 to R#*4 | 
| 31 { oo | Convert C#16 to R*8 | 
| 32 { o- | Convert C#16 to C#8 | 
| 33 {| AMOD {| | 
{ 34 {| DMOD | | 
| 35 | IABS | { 
| 36 | DABS | | 
| 37 | AINT | | 
{ 38 | ISIGN | | 
| 39 | DSIGN | | 
| 40 | IDIM. | | 
| 41 | AIMAG | | 
{ 42 | CMPLX | | 
| 43 | DCMPLX | | 
| 44 | DCONJG { | 
| 45 | HMOD | MOD Function with Arg Type I*2, Fn. Type I*2 | 
| 46 { -- | MOD Function with Arg Type I*4, Fn. Type I*4 | 
| 47 {| -- | ABS Function with Arg Type I*2, Fn. Type I*2 | 
{ 48 { - | ABS Function with Arg Type R*4, Fn. Type R*4 | 
| 49 | HSIGN | SIGN Function with Arg Type I*2, Fn. Type I*2 | 
| 50 . | oo | SIGN Function with Arg Type R*4, Fn. Type R*4 | 
| 51 | HDIM | DIM Function with Arg Type I*2, Fn. Type I#*2 | 
| 52 { o-- {| DIM Function with Arg Type R*4, Fn. Type R*4 | 
{ 53 | DDIM | DIM Function with Arg Type R*8, Fn. Type R*8 { 
| 54 { eo | CONJG Function with Arg Type C#8, Fn. Type C*8 | 
bj pec ae ee eee eel Ba eee ee eae a eee a een ae ene eee dl 
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A list of special ‘OPEN* class functions 
for exponentiation and their function num- 
bers is given below: 


f(s ee Sos ee 

| Function | Function | 
| Number | Name i 
}---------- +---------- 4 
| 72 | IsQ | 
{| 73 | ICUBE | 
{| 74 | IFIFTH { 
| 75 | ISEVEN j 
| 76 { SQ i 
{| 77 | CUBE | 
| 78 | FIFTH | 
| 79 | SEVEN j 
{| 80 | RECIP { 
bocccee eb oe eee 


3. OPENA (Class 10). 
Assemble in 


{ID | Class | No. of {Function | Index | 
j= 0| | Args. |Type | 

{O-2| 2-7 | 8-15 {16-23 | 24-31 { 
jArg. Type | | 
hoe oe ee sus cis a ca ncaa ens en Se ini mas es eh ula Ss cw cms es 


Index is used for table lookup in Phase 1. 


A list of “OPENA" class functions and 
their function numbers is given below: 


(Sess See ed 
| Function | Function | 

Number | Name | 
}---------- $---------- 
{| 55 {| MOD { 
| 56 | ABS j 
{ 57 {| SIGN | 
{ 58 | DIM | 
{ 59 _ | CONIG | 
be ee ee ee 


4. MAX (Class 12). 
Assemble in 


tr" A A A SPS ES RE SE OE AE ES 





1 
{ID | Class | MIN Flag |Function |Function| 


j=. Of | | Type | Number | 
{O-2| 2-7 { 8-15 }16-23 {24-31 | 
p-——-4-------4---------- 4-----.—.-1-- | 
jArg. Type | | 
Ge ee eee ean 5m cme ces em ca mi es a ci ii ee enn as meni aac i ne cms cs cb 
MIN Flag 


raised if function is from MIN family. 
Function Number 


is either zero or the number of con- 
version function needed. 
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A list of "MAX" class functions and 
their function numbers is given below: 





ase ag a 1 
| Function | Function | 
| Number | Name | 
}----------}--------——-4 
| 60 } AMAXO j 
| 61 {| AMAX1 | 
| 62 | MAXO | 
| 63 | MAX1 | 
| 64 {| DMAX1 { 
| 65 | AMINO | 
| 66 | AMIN1 | 
| 67 | MINO i 
| 68 { MIN1 | 
| 69 { DMIN1 | 
No oi eae 


Constant Format 


Name Part (at higher-address portion o 
table) 








Geer ee eo ey ne ey ae eee 

| Value | 

pono 

| Value { 

}----+---—- -- + + -—-—— A ES A NG AED <a 

| Value | Variable Length 

f------ ~~ ——-———---{ Maximum of 16 

| Value | Bytes 

RE Re A A A RE ORT awww ee nner ead 

| LINK | DPP i 

Field Description 

VALUE Binary value of the constant. 
Value of logical constants 
1 = true 
0 = false 

LINK Link to next Constant entry in 
chain, otherwise X'80--', 
‘END CHAIN‘ 

DPP Descriptive Part Pointer 


Descriptive Part (at lower-address portion 
of table) | 


f-"> <a ED SE ER OED AD SED MD EN I ee er ae a ee me 


| | FLAGS | TYPE | | 
JID | {| LENGTH, | LINKF | 
{= 1] 0 | ATYPE | | 
{O~-1] 2-7 | 8-15 | 16-31 | 
f---1-------1-------~- hi cco crasecae Stree aa 
| SLOC | STCL | 
a ecient op Sei de kc en eect ea ati 
Field Description 

ID Constant = 1 

FLAGS Available if needed 
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Type of constant, which may be: 
Null (0,0) , 
Logical*1 (0,1) 

Logical*4 (3,1) 

Integer*#2 (1,2) 

Integer*#4 (3, 2) 

Real*4 (3,3) 

Real*8 (7,3) 

Complex*#8 (7,4) 

Complex*16 (F,4) 


TYPE 


LINKF Link to name part 


SLOC Storage Location (offset with 


respect to Storage Class base) 


STCL Storage Class 


Label Format 


Name Part (at higher-address portion of 
table) 


(SS Seay 





i Label 1 
| ------------~-----~--7—---—-------——----—-4 
{ LINK | DPP | 
tie eo ee ee ead 
Setting 
Field Description Phase 
LABEL Binary value of the label 1,2 
LINK Link to next Label table 1,2 
entry in chain, otherwise 
X *'80--"', ‘END CHAIN‘ 
DPP Descriptive part pointer 1 


Descriptive Part (at lower-address portion 
of table) 
Cn —¥ 
| | | {| Level {| Not Used | 
| | | { 16-23 | 24-31 | 
{ID | Class | $--~-—---1-—----- 

{= 2| | | ADCON | 
{O-1| 2-7 { 8-15 | | 
penne ne nbn bn ---~{ 
{ SLOC 1 STCL J 
|------------------------—----4----------4 
| LINKF | PLAT 1 
icra pera osreenarat an encarintaaa te 


Flags 


Setting 
Phase 
1,2 


Description 





Label = 2 


Class of label, which may 
be: 


1,2 


Unknown 

Source number 
Format number 
Compiler generated 


WNrH OS 
oun nu 


Appendix A: 


=e 


‘FLAGS 


One-bit indicators which 
are: (Left to Right) 


Not Used 
Referenced 
Defined 


LEVEL Loop level at which the 


label was defined 


ADCON Reference to ADCON entry in 3 


Symbol Table 


Applicable to labels only 


SLOC During Phase 1, the storage 
location is assigned for 
Format Labels. During Phase 
4, the storage location is 
assigned for statement labels 
when first referenced or. 
defined 


1,4 


STCL Storage class, set during 

Phase 1 for Format Labels or: 
during Phase 4 for Statement 
Labels when first referenced 


or defined 


1,4 


LINKF Link to name part 


PLAT PRF entry of the Begin or - “2 
End Loop item preceding the 


statement number 


Address Constant Format 


Name Part (at 
table) 


<< a ee ee ee on eee a oe Ao a a epee sess == = 


{ Value 1 | Value 2 | 


p--------------------,--------1----------- 


{ LINK | DPP | 


a cece ere ant em ene ere cree remand wean anes aenan an cn enewen waren erasand 


higher-address portion of 


Field 


Description 
VALUE 1 


If value 2 = 254, pointer to 
symbol table entry for entity to 
be addressed. 

If value 2 = 255, estimated 
location addressed, ELSE location 
addressed. 





VALUE 2 Storage class of location or 


entity addressed. 
LINK Link to next entry in chain, else 
X*80--", ‘END CHAIN‘. 


DPP Descriptive part pointer 


Interphase Table and File Formats 649 


Page of GY28-2019-1, Issued September 30, 1971 by TNL GN3190 


Descriptive Part (at lower-address portion 
of table) + 


(nt nt 


JID | | FLAGS | LINKF { 
{= 3] { { i 
p--—L—-----1--------- Bs Ss —-—+—------{ 
| SLOC | STCL | 
bated en oem eee ae eo oscar Jj 
Field Description 
ID Address Constant = 3 
FLAGS One bit indicators (as yet 
unassigned) 
LINKF Link to name part 
SLOC Location (on ADCON page) 
STCL Storage class 
4 = shared address constants 
5 = unshared address constants 


INTERCOM TABLE 


The area called “*Intercom" (Interphase 
Communication) is the most widely used 
interphase file in the compiler. This area 
is 512 storage locations in length and con- 
tains information used by all modules in 
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the compiler. The structure and contents 
of Intercom are shown in Figures 40 and 41. 
Figure 40 is a DSECT listing for the area, 
giving the Intercom items in increasing 
storage location order. Figure 41 is a 
listing of all items in Intercom in order 
of increasing alphameric labels. In Figure 
41 the relative displacement of each item 
is given following the item description. 


A 512-byte area for Intercom is reserved 
in the Phase Controller's PSECT and in the 
PSECT for each of the compiler phases. 
Intercom is initialized by the Phase Con- 
troller for each compilation. When the 
Phase Controller calls a phase, the loca- 
tion of Intercom in the Phase Controller's 
PSECT is passed to the phase. Each phase 
copies the 512 bytes into its own PSECT, 
updates the area (in its own PSECT) as 
required during processing, and copies the 
512-byte area back into the Phase Control- 
ler‘s PSECT before returning to the Phase 
Controller. 


Many phase modules call Exec modules 
during their processing. All such calis 
provide the Exec module called with the 
location of Intercom in the phase. The 
Exec modules change the phase‘s copy of 
Intercom as necessary, thus insuring that 
changes make their way into the copy of 
Intercom passed to later phases. 


LOCATN OBJECT CODE ADDR1 ADDR2 STMNT SOURCE STATEMENT 


eco 


coo 
008 
c10 
O16 


e1c 


o1c 
cic 
o1c 
c20 


C24 
o1a 
024 
O28 


o02c¢ 
c20 
02Cc 
c30 


C34 
c2a 
034 
c3e 


03C 
c3¢ 
03C 
C40 


C44 
c3e 
Coe 
cae 


c4C 
c4c 
o<¢ 
ose. 


054 
G4e@ 
054 
o5@ 


osc 
650 
csc 
oé«c 


064 
G58 
064 
Cé& 


Figure 40. 


0433 *CEKTEX 
CG3G44ORS 
0435 *TEMCON 
0436*TEMEP 
0437*TEDKIDN 
O438*4TEVID 
04398484 
0440444 


C441 * TEGNS2 
C442 *TEVGNS 
0443% 
C4444TEVGNS 
C445 *% 

0446* 
C447*TEVROM 
04464 
C449*8TEVROM 
0450% 

C451* 
O4524*TEVI2 
0453* 
O4544TEVI2 
0455 

0456* 

O45 7T#eTEVIC 
C4582 
C4598TE VIG 
6460* 

0461* 
0462*TEVRS 
0463* 

C4604 RTE VRG 
04605 

04664 
O467*TEVRE 
0468*% 
C469*TEVRE 
9470* 

C471% 

0472 *TEVC8 
0473* 
0474*4TEVCS 
0475* — 
0476% 
O477*TEVC1LS 
0478 
C4T9#TEVC1S6 
C4&80* 

0481* — 
O4824STEVFLG 
C483*% 
C4B4*TEVFLS 
0485* 

04868 
C487T*TEVFELS 
C488 
O489"TEVFELS 
0490*# 

0491 


oS 


os 
os 
os 
us 


EWU 
ADCON 


EQU 


OD EXEC INTERCOM 
OBJECT PROGRAM NAMES 
8C MODULE NAME 
BC MAIN ENTRY POINT 
4C CECK IDENTIFICATION 
8C VERSION IDENTITICATION 
ENTRY POINTS 
PHASE CONTROLLER ENTRY 


* 

IMPLICIT GNSS 
OF 

#-12 

Ac) 

A(G) 

IMPLICIT RDM 
OF 

#-12 

Ata) 

A(0) 

IMPLICIT CONI2 
OF 

a-12 

Ato) 

A(0) 

IMPLICIT CONIé 
OF 

#-12 

AiO) 

AGG) 

IMPLICIT CONR4 
OF 

s-12 

Ato) 

A(G) 

IMPLICIT CONRe 
OF “ 
#-12 ae 
AO} Pian 
AtQ) 
IMPLICIT CONCA 

GF 

*-12 

AO) 

AO) 

IMPLICIT CONC16 

oF 

e—-12 

AO) 

Ato) 

IMPLICIT FLAD4s 

OF 

*-12 

AO) 

ACO) 

IMPLICIT FLADS 

OF 

*-12 

Aco) 

AO) 
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é 


INCATN OBJECT CODE 


GéC 
céec 
occ 
070 


C74 
Cek 
G74 
O7# 


o7c 
c7c 
c7¢ 
cece 


CAs 
O7AaA 
G84 
088 


cac 
c90 
CSé 
os? 
cse 
csc 
csr 
o9E 
OSF 


CAC 
CAS 
QAE 
CAR 
OAC 
OBC 
CAG 
One 
CBC 
occ 


oc2 


0C4 
acs 
occ 
coo 
Ons 


oDé 
onR 


Figure 40. 
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ADNR1 ADDR2 STMNT 


O492"TEVVR 
0493 
O04S4*TEVVR 
C495* 

C496* 
COOTSTEVELL 
C496 

C499 FTEVELL 
o500* 

0591 * 

0502 *TEVCRL 
C503* 
OS5S04*TEVCRLE 
0505* 

£506* 
CSOTFTEVCLR 
CS5OR* 
OS0Q9*TEVELR 
J510* 

o511* 

0512 eee 
O513*TEStNN 
OS14*TESTAC 
OSLS*TEFCRG 
ASLO*TECKR 
CSLT7T*TEVSTB 
OSLBE*TEEND 
C51S*TFEPIAB 
O0520*TEPSCH 
C521 *TEPSDA 
C522 4#es 
C523 *TEVSYM 
0524*TENAPT 
OS25*TEDEST 
0526*TEVHTR 
C527*TELHTS 
C528*TECHTA 
CS529*TESCTS 
CS30*TELTTSA 
C531 *TEPSER 
CS32*TESTEA 


0533*TEXRAN 
C534eee8 

0535*TESPLA 
U536*TESPLT 
537 *TESPLU 
0538*TEPRFB 
OS39*TEPRFT 


C540*TEKEVT 
0541 *TEEFB 


ADCUN 
OS 
EQU 
vs 

vs 
ADCON 
vs 
Ew 
os 

os 
AUCON 
vs 
EGU 
vs 

os 
ADCUN 
JS 
EQU 
US 

US 


os 
vuS 
OS 
us 
cS 
oS 
vs 
os 
OS 


vos 
OS 
oS 
OS 
os 
OS 
oS 
oS 
cS 
oS 


os 


oS 
OS 
os 
oS 
us 
os 
oS 


SOURCE STATEMENT 


IMPLICIT FLADVR 
OF 

s-12 

Ato) 

A(O) 
IMPLICIT FLL 
OF 

e-12 

Au) 

AO) 
IMPLICIT CRL 
OF 

*-12 

AQ) 

A(G) 
IMPLICIT CLR 
OF 

*-12 

AU) 

AG) 


PL SOURCE LINE NO. 

6C SOURCE STATEMENT NO. 
FORGET FLAG 
CCNVERSATION/BATCH SWITCH 
SOURCE STATEMENT TEXT BASE 
END STATEMENT FLAG 


AOOxK NK 


SYMBCL TABLE BASE 

SYMBOL TABLE NAME PART TOP 
SYMBOL TABLF DESC.TOP 
VARTABLE HASH TABLE BASE 
LABEL HASH TARLE BASE 
CCNSTANT HEADER TABLE BASE 
STGRAGE CLASS TABLE BASE 
IMPLICIT TYPE TABLE BASE 
EXEC*S PSECT BASE (FOR 
ANCHGR FOR SYMBOL TABLE 
ENTRY CHAIN 

ANCHOR FOR SYMBOL TABLE 
XREF CHAIN 


TrPPrprrireic 


z 


V STORAGE SPECIFICATION LIST 
BASE 

Vv STCRAGE SPECIFICATION LIST 

Top 

STGRAGE SPECIFICATION LIST 

UPPER LIMIT 

PREF BASE 

PRE TOP 


nn 


<rir< 


EF BASE 


SOURCE LINE INFORMATION 


TABLES BASES. TOPS - ANCHOR S 


FILE AND LIST BASES» TOPS 
AND ANCHORS 


VISAM *PUT® KEY FOR CEKVU MACRO 
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tOCATN 


ooc 
OEC 
cre 
CF 
OF 
CEC 
CFO 
OF4 
CFA 
CFC 
10¢ 
104 


1028 


10C€ 
ric 
114 
116 
11C 
120 
124 
12e 
12c 
12€ 
130 
132 
13¢ 
12¢ 
138 
124 


13¢ 
130 
13F 
13F 
13F 
140 
141 
142 


143 
144 
146 
146 
147 
146 


24h 


14C€ 
14¢ 
14C 


Figure 40. 


ORJECT CODE 


ADDR] ADDR2 STPMNT 


' OS424TEFFT 


C543 *TEPFR 
O544*TEPFT 
0545 *TEPFU 
C546*TECFA 
OS47*TECFT 
OS48*TECFU 
O549*TEPSA 
OS5C*TEPST 
C551 *TECRLB 
CS552*TECRLT 
O553*TEFAAB 


C554*TEFAAT 


O555e«TEPMCA 
OSSO*TEPMDT 
OS557*TECPMB 
CSSCeTECPMT 
O5S5S*TERBAS 
O560*TEISOU 
O561*TEISOB 
O562*TELSOT 
0563 *TEGLAN 
OS64*TELLAN 
C565 *TEPDAN 
C566*TECPAN 
C567*TEADAN 
C568*TEDAAN 
OS69*TEALFA 
C57O0*TESTAN 


C57) eee 
O572 *TEMEC 
0573 *TECPUT 
O574*TESLO 
0575 *TEMMC 
OS7T6*TEMNG 
OS77*TECCLO 
CST8*TESTEC 
CST9*TECRLO 


C560*TEISOO 
CSB8L*TEPTYP 
0582 *TENEP 
0583 *TENAR 
0584*TEACD 
OS8S*TENFA 


0586 ese 
OS87*TEIFLP 


OSSR*TEFEU 
0589* 
C590*TEFEU 
o591% 


oS 
vs 
OS 
os 
vS 
Gs 
oS 
oS 
OS 
DS 
OS 
vs 


DOS 


oS 
os 
OS 
vS 
os 
oS 
OS 
os 
OS 
os 
os 
DS 
OS 
OS 
oS 
DS 


DS 


AOCON 
OS 
EQuU 
oS 
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n qenepvecen<e zrxr<f 


TIATIIITIAMR< Dene n< 


€ 


me md OO 


aK OK 


H 


IM 
OF 


SOURCE STATEMENT 


EF TOP 

PF RASF 

pF TCP 

PF UPPER LIMIT 

CCOF FILE AASE 

CODE FILE TOP 

CODE FILE UPPER LIMIT 
PRESET CATA RASE 

PRESET CATA TOP 

CRGSS REFERENCE LIST BASE 
CROSS REFERENCE LIST TOP 
FORMAL ARGUMENT ADCON LIST 
BASE 

FORMAL ARGUMENT ANCON LIST 
Top 

PMD BASE 

Pac Top 

CPM BASE 

Cpe Top 

EXTERNAL NAMELIST BASE 
ISG U.l. FOR PHASE 5 

ISC BASE 

ISO TOP: 

GLNK ChAIN ANCHOR 

LLNK CHAIN ANCHOR 

POLNK CRAIN ANCHOR 

CPS CHAIN ANCHOR 

AGP CHAIN ANCHOR 

CATA CHAIN ANCHOR 
ALPHANUMERIC CHAIN ANCHOR 
SYMBCL TABLE NAMELIST 
CHAIN ANCHOR 


MAX ERROR CODE 

LIST DATA SET EXISTS FLAG 
SGURCE LISTING OPTION 
MEMORY WAP CPTION 

MMC . 

GBJECT CCOE LISTING OPTION 
SYPPROL TABLE EDIT OPTION 
CROSS-REFERENCE LISTING 
OPTION 

ISD CPTICN 

PROGRAM TYPE 

NG. OF ENTRY POINTS 

NO. OF ALTERNATE RETURNS 
E6CDIC/BCD INOICATOR 

NEXT FCRMAL~ARG-BY -NAME 
NG. 


SYMBOL TABLE POINTER TO” 
INTRINSIC FUNCTION LIST 
PLICIT 


*-12 


Al 


0) 


FLAGS AND QPTIONS 


MISCELLANEOUS 
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LOCATN 


150 
154 


166 
158 


198 
19¢ 
144 
148 


1Ac 
1AE 
LAF 


180 
180 
1B4 
188 
1RC 
1cc 
1C4 
1cR 
1cC 
100 
104 
108 
10C 
1E0 
1E? 
1E4 
1F6 


1€8 
10C 
1E€8 
1€C 
1FO 
1F4 
1F§ 
1F6é 
1Fe 


Figure 40. 
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QBJECT CODE 


ANDKL ADDR2 STMNT 


e592* 
0593 *TETRUE 


C594 *TEFALS 
C595 *TERSAV 


0596 *TEPAGE 
OS597*TEDATE 
OSS8*TECFLC 
OS99*TENCSX 
G69Ge* — 
0601 *TEFVAL 
C602*TEPLDA 
C663 *TEP2CB 
C606 %8ee% 
C605*TECCNS 
C606*TECNS} 
COD7*TECNS2 
0608*TECNS3 
O609*TECNSS 
O61LO*TEPNTR 
O611*TEGNU 
9612*TELING 
C613*TEWAAH 
C614*TEDESB 
C615 *TENAMB 
Q6lLA*TEDCR 
O617*TECXBA 
COLS*TEICIN 
O6LO*TEICTR 
0620*TEICEN 
OCO2L*TEINTR 
0622*TEVGAT 
0623 
0624*TEVGAT 
0625 

C4626* 
0627*TESCA 
O62a*TELOS™ 
0629*TEPUPR 
C630*TEDUMP 
0631 *TEPNMP 


OS 
vs 


oS 


SOURCE STATEMENT 


A(0) 

H SYMBCL TABLE POINTER TO 6 
eTRUE. 

H SYMAGL TABLE POINTER TO f 
FALSE. 

16F REGISTFRS SAVE AREA A 


WHEN SUSPECTED SYSERR 
F CURRENT CUTPUT PAGE NQ. 
CL8 DATE--MM/0D/YY 
F Of FLOW FLAGCEXEC ONLY) 
F NOeCF CGMMON SUB-EXP.NAMES 


H PCINTER TO FUNCTION VALUE 


c 
c 
CONSTANT FILING AREA 
00 
F LENGTH & CONSTANTS 
F LENGTH @ AND 16 
F LENGTH 16 
F LENGTH 16 
F SYMBCL TABLE POINTER 
X CGNSTANT ALREADY FILEN FLG 
F BINARY LINE NO. FROM CRL 
A ACCR CF PRE 1ST WORD 
A ACCR OF DESC.PART 1ST WORD 
A ACOR CF NAME PART 1ST WORD 
F CATA SET 0CB 
F 
H CHCIAL 
H CHCIEL 
H CHCTHL 
H INTERRUPT ROUTINE PNTR 
IMPLICIT 
OF 
$-12 
Ato) 
AtG) 


A(TEGNS2-TEVGNS) 


rroao 
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TEAQAN OS H ADP CHAIN ANCHOR . 134 
TEALFA OS H ALPHANUMERIC CHAIN ANCHOR 138 
TESCO OS xX EBCDIC/BCD INDICATOR 147 
TECFB OS V CODE FILE BASE OFR 
TECFT OS F CODE FILE TOP OEC 
TECFU OS Vv CODE FILE UPPER LIMIT OFO 
TECHTB OS A CONSTANT HEADER TABLE BASE 080 
TECNS1 NS F LENGTH & CONSTANTS 18C 
TECNS2 OS F LENGTH 8 AND 16 1R4 
TECNS3 OS F LENGTH 16 188 
TECNSé OS F LENGTH 16 18C 
TECONS CS OD 180 
TECPAN OS H CPD CHAIN ANCHOR 132 
TECRLB OS V CROSS REFERENCE LIST BASE OFC 
TECRLO OS x CROSS-REFERENCE LESTING OPTION x 142 
TECRLT OS F CRCSS REFERENCE LIST TOP 1c0 
TECXB DS Xx CONVERSATION/BATCH SWITCH 097 
TECXBA OS F AUDR IN LPC OF BATCH/CONV. IND 10C€ 
TECAAN CS DATA CHAIN ANCHOR 136 
TEGATE OS CL8 DATE--MM/D0/YY 19¢ 
TEcCB os F CB ADOR FROM LPC ine 
TECESB OS A ADDR CF DESC.PART 1ST WORD 100e 
TEDEST OS H SYMBOL TABLE DESC.TCP 0A6 
TEOIAG OS c IF Vo ALLGW MAINT CUTPUT ics 
TECKEIO OS 4C DECK IDENTIFICATION orc 
TECcuMP OS XL2 LFé 
TEEFB OS V EF BASE opa 
TEEFT OS H eF Tce Onc 
TEEND OS Xx END STATEMENT FLAG occ 
TEFAAB CS v FORMAL ARGUMENT ADCON LIST BASE x 104 
TEFAAT OS F FORMAL ARGUMENT ADCOA LIST TCP x 105 
TEFALS CS H SYMBCL TABLE POINTER TO .FALSE. Xx 156 
TEFEU os 2A CEKTG MACRO USES 140 
TEFORG DS X FORGET FLAG C69 
TEFVAL DS H POINTER TO FUNCTION VALUE 1ac 
TEGLAN CS # GLN« CHAIN ANCHOR 12¢€ 
TEGNS2 EQU * o1c 
TEGNU DS X CONSTANT ALREADY FILED FLG 1¢4 
TEIFLP OS H SYMBGL TABLE POINTER TO ENTRINSIC FUNCTICA LIST x 14A 
TEINTR os H INTERRUPT PROG PNTR 1E6 
TEIOEN OS H CHC IH1 1E4 
TEIGIN OS H CHCIAL 1FO0 
TEIOSM OS c 1€4 
TEIOTR GS H CHC IE1 1E2 
TEISOB CS ¥ ISD BASE 124 
TEISOO OS Xx 1sD CPTION 143 
TEISOT OS F 1so ToP 128 
TEISOU OS F ISD UeL. FOR PHASE 5 120 
TETITS EQU TEITITB ORs 
TEITTB OS A IMPLICI¥T TYPE TABLE BASE 

TEKEYT OS H VISAM *PUT* KEY FOR CEKVU MACRO 006 
TELHTB OS A LABEL HASH TABLE BASE OAC 
TELINO OS F BINARY LINE NO. FRCM CRE 1c8 
TELLAN OS H LLNK CHAIN ANCHOR 12 
TEMEC DS xX MAX ERRCR CODE 13¢ 
TEMEP DS 8C MAIN ENTRY POINT ook 
TEMMO DOS Xx MEMORY MAP OPTION 13F 
TEMNO EQU TEMMO 13F 
TEMOON OS A&C MODULE NAME oo: 


Figure 41. Alphabetically Sorted Listing of Intercom Items, With Displacements 
(Part 1 of 2) 
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TENAMB OS A AOOR OF NAME PART 1ST WORD 104 
TENAML OS H SYMQQL TABLE NAME PART TOP OAS 
TENAR OS X NO. OF ALTERNATE RETURNS 146 
TENCSX OS F NO.OF COMMON SU8-EXP.NAMES 146 
TENEP DS X NO. CF ENTRY POINTS 145 
TENFA DS X NEXT FORMAL-ARG-BY-NAPE NC. x 148 
TEGCLO OS x OBJECT CODE LISTING CPTION 140 
TEGFLO OS F O°FLCW FLAGSEXEC ONLY? 1A4 
TEOPMB DS V OPM BASE 114 
TEQPMT DS F opm TOP 118 
TEOPUT OS x LIST DATA SET EXISTS FLAG 130 
TEPAGE OS F CURRENT OUTPUT PAGE NO. 198 
TEPOAN OS H PDLAK CHAIN ANCHOR 130 
TEPOMP DS ~~ XL2 1Fa 
TEPFB OS V PF BASE 0E0 
TEPFT OS H PF TOP OE4 
TEPFU OS H PF UPPER LIMIT OE6 
TEPMOB OS V PMD BASE 10C 
TEPMOT CS F PMD TOP 110 
TEPNTR OS F SYMBOL TABLE POINTER 1c0 
TEPRFB DS V PREF BASE 000 
TEPRFT OS H PRE TOP 004 
TEPSB OS V PRESET DATA BASE OFS 
TEPSEB OS A EXEC*S PSECT BASE OBC 
TEPST OS A PRESET DATA TOP OFA 
TEPTYP DS X PROGRAM TYPE 144 
TepupR OSC 1F5 
TEP10B DS C PHASE 1--5 DIAGNOSTIC BYTES 1AE 
TEP20B CS C LAF 
TEP 308 CS C 09D 
TEP40B DS C O9€ 
TEPSOB CS C ooF 
TERBAS OS A EXTERNAL NAPELIST BASE 11¢ 
TERSAV OS 16F REGISTERS SAVE AREA WHEN SUSPECTED SYSERR x 158 
TESCTB OS A STORAGE CLASS TABLE BASE 084 
TESLNO OS PLS SCURCE LINE NO. 090 
TESLO OS X SOURCE LISTING OPTION 13€ 
TESOB «© 0C-~—s AL TEGNS2-TEVGNS) 1FC 
TESPLB OS V STORAGE SPECIFICATION LIST BASE x 0cs 
TESPLT OS V STORAGE SPECIFICATION LIST TOP x 0c8 
TESPLU DS F STORAGE SPECIFICATICA LIST UPPER LIMIT x occ 
TESTAN DS H SYMBCL TABLE NAMELIST CHAIN ANCHOR x 13A 
TESTEA CS H ANCHGR FOR SYMBOL TABLE ENTRY CHAIN x 0co 
TESTED DS X SYMBOL TABLE EDIT CPTION 141 
TESTNO DS 6C SOURCE STATEMENT NO. 090 
TETRUE OS H SYMBOL TABLE POINTER TO .TRUE. x 154 
TEVCRL CEKTX EXEC MCOULES ACCON PAIRS 070 
TEVC16 © CEKTX 048 
TEVC8 = CEKTX 040 
TEVFLE © CEKTX 068 
TEVFL4 = CEKTX | 050 
TEVFLS  CEKTX osA 
TEVGAT CEKTX 10€ 
TEVGNS CEKTX o1¢ 
TEVHTB OS A VARIABLE HASH TABLE BASE OAs 
TEVIO OS 8C VERSION IDENTITICATICN 014 
TEVI2  CEKTX 020 
TEVES = CEKTX 028 
TEVOLR  CEKTX 078 
TEVROM = CEKTX 018 
TEVRG = CEKTX 030 
TEVRS = CEK TX 038 
TEVSTB OS F SOURCE STATEMENT TEXT BASE o9e 
TEVSYM OS V SYMBOL TABLE BASE OA0 
TEVVR =: CEKTX 060 
TEWAAH OS A ADOR OF PRF 1ST WORD 1cC 
TEXRAN OS H ANCHOR FOR SYMBOL TABLE XREF CHAIN x oc2 


Figure 41. Alphabetically Sorted Listing of Intercom Items, With Displacements 
(Part 2 of 2) 
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INTRODUCTION 


Linkage conventions are those conven- 
tions which govern communication among pro- 
grams. Basically, there are two types of 
communication: that defined as standard 
linkage, and that defined as restricted 
linkage. 


Restricted linkage provides highly effi- 
cient communication among programs which 
Satisfy a definitive set of requirements. 
Such linkage is intended for use within a 
“black box" (precisely defined by the 
requirements given below) which has little 
or no interface with the rest of the system 
(or user), while standard linkage is the 
vehicle for all other communication. 


In TSS/360 all interfaces among CSECTs 
which reside in virtual memory (execute 
with dynamic relocation turned on), whether 
or not the CSECTs are in the same assembly, 
conform to either standard or restricted 
linkage. Furthermore, all linkage within a 
CSECT conforms to one of these conventions. 
No other mechanism for communication is 
recognized. It is emphasized, however, 
that the restricted linkage never has to be 
used. A standard linkage is always accept- 
able and it is expected that the majority 
of program linkage will follow the 
standards. 


The following paragraphs describe the 
linkage conventions to which all compiler 
modules must (and do) adhere. Reference is 
made in this description, and elsewhere in 
this PLM, to “Type I linkages." Type I 
linkage is one of several types defined for 
use in compiler and other system modules. 
For a complete description of all linkage 


types see the Systems Programmer's Guide. 


For a precise description of the macros 
used for standard linkages (the CALL, SAVE, 
and RETURN macros) see Assembler Users 
Macro Instructions. Macro support for 
restricted linkages (INVOKE, STORE, and 
RESUME) is described later in this — 
appendix. 


CONVENTIONS FOR TYPE I LINKAGES (STANDARD) 


Register Conventions 


General 
Register Usage Mnemonic 
15,0 Supervisor Parameter SP 
Register 


Appendix B: 


APPENDIX B: TSS/360 LINKAGE CONVENTIONS 


1 Parameter List Re- PL 
gister, Supervisor 
Parameter Register, 
or Parameter List 


Register 
13 Save Area Register SA 
14 Return Register R 
15 Entry Point Register, E 


Return Code Register 


It is the responsibility of the called 
program to maintain the integrity of gener- 
al registers 2-12 so that their contents 
are the same at exit as they were at entry 
to the called program. It is the calling 
program's responsibility to maintain the 
floating-point registers around a call. 
General registers 0, 1, and 13-15 must con- 
form to the indicated conventions. 


Save Area 


Whenever one program calls another, the 
calling program provides a save area for 
use by the called program; the calling pro- 
gram is known as the owner of the save 
area. This save area is addressed by the 
save area register (SA) on entry to a 
called program and is described in detail 
in Assembler Users Macro Instructions; in 
general the format is: 

Word 1 - Contains the length in bytes 
of the save area and any 
appendages to it. This field 
is set by the calling program 
in its own save area, and 
always contains the integer 76 
(in TSS/360). 


Word 2 - Contains a pointer to the save 
area of the calling program. 
This field is set by the 
called program in its own save 
area. This procedure allows 
all save area of active pro- 
grams to be linked in a 
reverse chain. 


Word 3 - Contains a pointer to the save 
area of a called program after 
its invocation. This field is 
set by the called program in 
the calling program's save 
area. This allows all save 
areas of active programs to be 
linked in a forward chain. 
When the called program is 
complete, if trace forward has 
been specified, it sets the 
low order bit of this field to 
1 to stop the forward chain. 
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dord 4& - Contains the return linkage 
for use by the called program 
when it is complete. This 
field is set by the called 
program in the calling pro- 
gram’s save area. 


word 5 - Contains the entry point 
address to the called program. 
This field is set by the 
called program in the calling 
program's save area. 


Words 6-18 - Register save area. These 
fields are set by the called 
program in the calling pro- 
gram's Save area aS necessary 
to preserve registers 0 
through 12. 


Word 19 - Contains the address of the 
PSECT belonging to the called 
program. This field is set by 
the calling program in its own 
save area. 


It is clear that a program may use its 
own PSECr for a save area provided that the 
head of the PSECT is formatted as indicated 
above. However, if PSECTs are used for 
Save areas, a called program will not use 
its own PSECT to save registers, but rather 
will use the save area (PSECT) of the call- 
ing program. 


Parameter List, Type I Linkage 


Whenever it is necessary for one program 
to explicitly communicate information to 
another program using Type I linkage, it 
must do so by using a parameter list. A 
parameter list is an ordered list of 
addresses of information. At the time of 
the CALL, the calling program places the 
address of the parameter list in the param 
eter list register (PL). (This list is 
most probably a list of address constants 
residing in the PSECT.) See the CALL macro 
expansion. 


It should be noted that an active param 
eter of the CALL (a parameter which is set 
by the called program) is also passed in 
this manner. 


Type I Linkage, Return and Entry Linkage 
and Return Code 


It is the calling program's responsibil- 
ity to establish the return and entry link- 
age at the time of a call. This will norm 
ally be accomplished by placing a V-type 
Adcon in the entry point register using a 
load instruction and then executing a 
branch and store instruction which will 
establish the return location in the return 
register and pass control to the indicated 
program. 
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RESTRICTED LINKAGE CONVENTIONS 


Scope and Applicability of Restricted 
Linkage 


A restricted linkage may only occur 
between two programs if all the following 
conditions are met. 


1. The two programs involved must have 
the same PSECT in common and it must 
be contiguous; this area must be 
covered at all times by the PSECT 
cover register. 


2. The invocation may not use or require 
explicit dynamic linkage. 


3. The invoked program may not be enter- 
able at the same point by way of a 
standard linkage. 


4. The invoked program may not establish 
a non-volatile register as a common 
register (see below). 


5. The programs involved must reside in 
virtual (as opposed to real) storage. 


6. The invoking and the invoked programs 
must both be privileged or 
non- privileged. 


Register Usage and Assignment in Restricted 
Linkage 


' There are four classes of restricted 
linkage registers: parameter, volatile, 
non-volatile (including common), and link- 
age. These classes are now described 
individually. 


1. Parameter Registers and Parameter List 
Registers 


These registers are used explicitly to 
pass information in a restricted link- 
age both from the invoking to the 
invoked program and from the invoked 
to the invoking program. A parameter, 
in this context, may be by name or 
value. These registers may also be 
used to address parameter lists. 
Clearly, the content of these regis- 
ters must be known by implicit agree- 
ment among the programs involved. 


Parameter registers are of the pseudo- 
volatile class where it is jenerally 
the responsibility of the invoking 
program to insure their integrity as 
necessary. 


Volatile Registers 


These registers may always be changed 
at will by the invoked program. The 
invoking program may never assume that 
they contain any specific values after 
an invocation is complete. 





Non-Volatile (and Common) Registers 


These registers are generally trans- 
parent around an invocation; that is, 
a non-volatile register must be STOREd 
and RESUMEd in the invoked program as 
necessary to preserve their contents 
(or the equivalent of STORE, RESUME). 
It is possible, however, that some, or 
all of the non-volatile registers may 
be established as common registers. A 
common register is a pseudo-parameter 
which is known to invoked programs and 
may change from invocation to invoca- 
tion; thus a common register need not 
maintain constant value but must 
retain constant function. When a non- 
volatile register is established as a 
common register, all programs invoc- 
able by the establishing program 
(directly or indirectly) must be 
implicitly aware of this assignment. 


In this context "Establish" means to 
set aside or dedicate a register for a 
particular use; this does not mean 
that the register must be initialized 
or modified. Common register usage 
must conform to tne foliowing rules: 


a. A common register may not be 

established by a program invoked 
with a restricted linkage; thus, a 
common register may be established 
only by a program CALLed with a 
standard linkage. 


b. Common registers may not be STOREd 
and RESUMEd by a program invoked 
with a restricted linkage unless 
that program contains no linkage 
to other programs. 


c. The scope of common registers 
shall extend only to those pro- 
grams invoked while the establish- 
ing program is active; further- 
more, no common register defini- 
tion is known to any program 
CALLed with a standard linkage 
from a program invoked with a 
restricted linkage. 


Linkage Registers 


The linkage registers are those regis- 
ters which must contain specific 
information during an invocation. 
There are three such registers which 
are now described individually. 
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a. PSECT cover register. This 
register must cover the common 
PSECT at all times (point to the 
origin of the PSECT). 


b. Return register. This register is 
initialized by the invoking pro- 
gram to the proper return location 
in the invoking program. This 
register must be used by the 
invoked program upon completion to 
return control (to the indicated 
return location). 


c. The entry point and return code 
register. This register must be 
initialized by the invoking pro- 
gram to the entry point address in 
the invoked program before the 
linkage takes place; it may also 
be used by the invoked program to 
pass a “return code” (see standard 
linkage) to the invoking program. 


The entry and return registers are vola- 
tile in the sense that the act of invoca- 
tion will cause their values to change. 


The following register assignments’ have 
been made for the above classes: 


Function Assignment 
Parameter (list) registers 0-5 
Volatile registers 6-7 
Non-Volatile registers 8-12 

Common registers 8 


sequentially from 
PSECT cover register 13 
Return and entry registers 


The floating-point register conventions, 
PICA, and program mask requirements are as 
described for standard linkage. No special 
save area format or location is committed; 
this function is left to the user. 


MACRO INSTRUCTION SUPPORT 


The following macro instructions are 
defined as support for restricted linkage. 
These macro instructions are used exclu- 
Sively when effecting a restricted linkage. 


INVOKE Macro Instruction 


The INVOKE macro instruction transfers 
control from one program to another with a 
restricted linkage. It is not possible to 
specify parameters of a linkage in the 
INVOKE macro as in the CALL macro. This 
function is left to the user to accomplish 
however he sees fit. 
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General Form 


[symbol] INVOKE addr 


symbol - Any programmer-defined label. 


addr - Specifies the address of a 
full-word which contains the 
address of the program to be 
invoked. 

Expansion 


The expansion of this macro instruction 
causes linkage register 15 to be loaded 
with the address at addr, linkage register 
14 to be set to the return location in the 
invoking program, and control to be passed 
to that location specified in linkage 
register 15. 


Examples: 


1. INVOKE A 
in Line 
L 15,A 
BASR 14,15 


2. INVOKE B(3) 
in line 
L 15,B(3) 
BASR 14,15 


STORE MacroInstruction 


The STORE macro instruction causes the 
indicated non-volatile registers to be 
stored in the specified area. 


General Form 

{symbol] STORE addr, (reg,-integer 
{,reg2 - integer]) 

symbol - Any programmer-defined 


label. 


addr - Specifies the address of 
an area sufficient to 
contain the indicated 
registers. 


reg,,reg2 - Integers specifying a 
range of registers to be 
stored at addr. If rege 
is not specified, only 
reg, will be stored. 


Expansion 
A ST (Cor ST, in the event that reg2 is 
not specified) instruction is generated to 
store the indicated register(s) at addr. 
Notes: 
1. It is possible to specify regz as 14 


or 15 thus causing the linkage regis- 
ters to be stored. 
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2. Reg, must be greater than or equal to 


3. If regs is 14 or 15, a single STM will 
be generated spanning register 13. 
Thus, the area at addr must be of such 
size as to contain this register, and 
it is stored redundantly. 


Examples: 
1. STORE A, 
in line 
STM 9, 10, A 


(9,10) 


2. STORE B, (11) 
in line 
ST 11,B 
RESUME Macro Instruction 
This macro instruction causes the indi- 
cated non-volatile registers to be restored 
from the specified area and control to be 


passed via the return register. 


General Form 


{symbol] RESUME [addr, (reg,-integer 
{, regz2-integer))] 
{, RC=integer] 
symbol - Any programmer-defined 
label. 
addr - Specifies the address of 


an area from which the 
indicated registers are 
to be restored. 


reg4, reg2 - Integers specifying the 
range of registers to be 
restored. If regz is not 
specified, only reg, will 
be restored. 


RC - Specifies an integer to 
be used as a return code 
(0<RC<4092). RC must be 
a muitiple of 4. 


Expansion 


A LM (or L, if regzg is not specified) 
instruction is generated to load the indi- 
cated register(s) from addr, the return 
code register is loaded as necessary with 
the specified integer (using a LA instruc- 
tion), and a BR 14 instruction is generated 
to return control to the invoking program. 


Notes: 
1. If the addr and register fields are 


not specified, only the BR 14 instruc- 
tion is generated. 


2. It is possible. to specify regz as 14 
or 15 causing the linkage registers to 
be loaded. 

3. Reg, must be greater than or equal to 
4. If regz is 14 or 15, a LM instruction 
is generated spanning register 13 
(thus loading it redundantly). The 

user must use a certain amount of cau- 
tion when allowing this to happen in 
order that the contents of register 13 
are not destroyed. 

Examples: 

1. RESUME A, (9) 
in line 
BR 14 

2. RESUME RC=4 
in line 
LA 15,4 
BR 14 

3. RESUME 
in line 


BR 14 
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APPENDIX C: 


rr EE aoe EE ES eae 


FORTRAN INTERNAL MACRO INSTRUCTION USAGE 


The table below contains a brief description of the user macro instructions required 


for assembly of compiler modules. 


macro library provided the TSS/360 Assembler when assembling compiler modules. 


These macro instructions are contained on the second 


The first 


macro library provided is that containing the system macro instructions, described in the 


Assembler User Macro Instructions. 


SS ge eT ee ee 
|Name | Description | 
}------ 4------~--~-------------~------- ---{ 
[EXECUTIVE Macro Instructions | 
a a | 
|CEKTO |Performs all operations concerned | 
| with calling a phase, including } 
checking the return code, giving | 
diagnostic option dumps if | 
requested, and logging the phases| 
on and off. | 
Moves an option from the F-option | 
table passed from LPC to FORTRAN | 
at the ‘Initial' cail to the | 
Executive PSECT. If LPC passes | 
neither an ‘N‘ nor a ‘Y', the | 
default value assembled intc the | 
phase controller module is used. | 
Executive intercom macro. | | 
Identical to CEKT8, but contains | 
DS rather than DC. Used by other] 

| 

| 

| 

| 

| 

\ 

| 

| 

| 

\ 

| 

| 

| 

| 


te ote cine ni 


CEKT7 


CEKT8 
CEKTS 


Executive programs, and the 5 
phases. 
Diagnostic option macro instruc- 
tion. 
module CEKTS, 
module. 


CEKTG 
Sets up calling list for 
and calls that 


| 
| 
i 
| 
( 
| 
| 
i 
| 
{ 
| 
| 
| 
| 
| 
i 
{ 
| 
| 
{ 
CEKTT | 
CEKTX |Forms V-R con pairs, with the aid 
| of the ADCON macro instruction. 
CEKTY | Checks batch/conversation switch 

| in the Executive, and LPC if in 

| conversion. Resets switch as 

| appropriate. 
jConverts a binary number to zoned 
| format, edits it under control of| 
| a mask, and moves the result to a| 
| user specified area. 
{Used to determine, from the limits| 
| of a main storage file, the base | 
{| and two- or four-byte offsets 
| from the base to the limits. | 
| 
i | 
i 
| 
| 
\ 
| 
| 
| 
| 
{ 
| 
| 
| 
| 


CEKU1 
CEKU3 
| 
CEKU4 | 
CEKU5 |Branches to one of five places, 
depending upon the return code in 
register 15. 
CEKU6 {Establishes intercom cover in 


register N4& and cover for the 
Executives PSECT page 1 in gener- 


Controller PSECT. Used to gener- 
ate a DSECT in other Exec 
modules. 
Used where the test must be made 
of a list data set exists, and, | 
if so, OLR is calied. | 


| 
| 

{ 

| 

{ 

al register N3. | 
Macro instruction for the Phase | 
| 

| 

| 

| 
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T 
{Name | Description | 
ee eet Ne 
oe Macro Instructions (Continued) | 

| CEKU9 jUsea to edit the line number of a 
line for which a diagnostic mes- 
Sage is to be given, move the 
number to a message area, call 
DIAGOUT to output the message, 
test the return code, and branch 
accordingly. 

Sets up FREEMAIN calls (using 
CEKV9) for those parts of Phase 5 
files not containing the output 
module. 

Moves addresses and lengths of 
Phase 5 created tables to LPC 
prior to the ‘Continue’ call 
return. 

Determines, for GNSS, if an END 
statement has been encountered. 

Performs all operations concerned 
with checking to see if the diag- 
nostic mode is allowed, checking 
for the existence of the diag- 
nostic line, and, if it is pre- 
sent, processing the two diag- 
nostic request lines. Also sets 


| 

| 

| 

| 

{ 

| 

| 
CEKUOX | 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
up the interruption entries. { 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


CEKV1 


EKV2 


EKV3 


Q =A 


CEKVS |Used in producing diagnostic out- 
put. Checks the 10-column fields 
provided for each phase on diag- 
nostic card 1 and gives dumps 
accordingly. 

Used in producing diagnostic out- 
put. Loads a register with a 
two- or three-character code, 
then invokes a sequence of 
instructions that will dump this 
code plus contents of all general 
registers, if so requested on 
diagnostic card 1. 

Used to establish a CSECT (for the 
initial entry to a module), USING 
statement, PSECT cover, and code 
cover in register N5. 

Similar to CEKV7, but establishes 
the PSECT and ENTRY statements, 
plus the 19-word Save area. 

Used for all FREEMAIN operations. 
In addition to the actual FREE- 
MAIN, records are kept in the 
PSECT of main storage areas 
freed, and their size. 


CEKV6 


CEKV7 


CEKV8 


CEKV9 


Fe ee te cree Oe ee cee CF eee EE cee OE greet EE eee OE ee TF eee ES eee, OE ee ES eee CUED eee EE eee SEE eee eer EER eye ED ime CED ares SED eee OEE cones GREE qgure GET gaan CEE ae CE 
fe ee ce crt cee ee ce cee SS come ED genes EE cee OEY cae ED nee CD cee ST ene IEE cemess GENT cee AED came GEE ene GOES eye ete GADD cme ONS ceapeee GEES cease CED cee GHEE eeemss ES cee GEE seems TS sears OOD 


Description | 


|------ 4 ---------- --- == ------ === =- —-{ 
ee Macro Instructions | 
| CEKVA obtains the version of this compi- | 
{| lation and moves it to appropri- | 
| ate edit areas. | 
CEKVB |Used in preparing diagnostic | 
information. Reached by an | 
INVOKE in macro instruction I 
CEKV6. ee | 
CEKVC |Used for all GETMAIN operations. | 
Obtains parameters from the PSECT| 
giving the number of pages to 
obtain, obtains them, and keeps 
records in the Phase Controller 


i 

| 

| 

| 

| 

| 

| 

| 

| 

| location. 

CEKVD |Produces a complete virtual 
| storage dump. Used in diagnostic 
| mode processing. 
| 
| 
| 
{ 
| 
| 
| 
| 


CEKVI |Contains code related to control 
of unexpected interruptions dur- 
ing the compilation process. 
Entered only in diagnostic mode. 

CEKVU |The data management operations 


all embedded in the macro 
instruction CEKVU. 
CEKZD {Establishes PSECT cover, and back- 
| ward and forward PSECT chains. 


OM ee ere ee te ce A SR SS NS SN me ce MY SS ce 


| 
l 
| 
i 
| 
OPEN, SETL, PUT, and CLOSE are | 
i 
| 
i 
{ 
4 
| 


{Phase 1 Macro Instructions 
eee He See oe ee eee 
[|CEKHB |Saves a one- or two-byte Symbol 
{| Table field. 
{|CEKHC |DSECT describing the Symbol Table 
| fields for a variable entry. 
|CEKHD {Phase 1 PSECT. 
|CEKHF |Updates the Cross-Reference List. 
|CEKHG |Creates a two-byte, signed Adcon 
| for the error routine. 
|CEKHH |Sets up INVOKE, tests the return 
| | code, branches conditional, and 
| | sets up RESUME. 
|CEKHI |Defines field used in internal 
| | tables and flags with EQU cards. 
|CEKHJ |Several DSECTs defining some 
| | internal tables. 
|CEKHL |Makes an RDM entry for the error 
| | routine. 
|CEKHM |Saves a one-byte field of the Sym-| 
| bol Table. | 
|CEKHN {Uses CEKHG to create parameter | 
| | lists for the error routine. | 
}--~-- a a a oar a al a eaca eas — 


{Phase 2 Macro Instructions | 


wa | 


|CEKIJM |Defines the fields of internal | 
| | tables by EQU cards. | 
|CEKJO |Phase 2 PSECT. | 
|CEKJ1 |Checks for a barrier between the | 
| | plateau values of a reference andj 
| | a definition of a statement | 
| label. | 

|CEKIJ2 |Marks the materialization list. | 
J 


L.———_— Re ce re mee ce a ec a ee RE Oe ee ae nS Oe ee 


I 
PSECT of pages obtained and their| 
i 
{ 
{ 


earn Ee a ey te ee tee ee ee 
{Name | Description | 
as a te haa a aes ea ite ie 
{Phase 2 Macro Instructions (Continued) j 
}------ Wontar gc 1 
|CEKJ3 |Checks the inner loop table for a | 
I {| reference or a definition of a | 
| specified statement label. | 

|CEKJ4 {Marks the return list. | 
{CEKJ5 |{Relinks a specified chain in the | 
| opposite direction. | 

|CEKJ6 |Tests for a D-Loop or an E-Loop | 
| | table entry between ILINK and | 
| | PDLINK. | 
|CEKJ7 |Defines the fields of internal | 
| | tables by EQU cards. | 
|CEKJ8 |Creates the parameter list for the] 
{ error routine, DX. | 

|CEKJ9 |Generates an invoke to the error | 
{ | routine, DX. | 
a ae oe a al eee es Las 4 
[Phase 3 Macro Instructions | 
a a a ah a a a 4 

| CEKKS Phase 3 PSECT. | 
{CEKKK |DSECTs describing the internal | 
| | tables. | 
|CEKZB |Sets the DSECT or PSECT control | 
| | and specifies print options. { 
{LDPNT |Converts a pointer to an address | 
| and loads it into a register.’ | 

|STPNT [Converts an address into a pointer| 
| and saves the result. | 

|EKKSB |Assembles an address as a pointer. | 
JEKKSC |Sets an origin toa specified» | 
{| boundary. | 

|CEKKD |diagnostic mode, provides sane | 
| | during Phase 3 processing. | 
a be no a 4 


|Phase 4 Macro Instructions . | 


b 
| CEKNY |Phase 4 PSECT. | 
|CEKN2 |Tests the return code, and { 
| branches conditionally to the | 
| error routine (PH4MER). | 
CEKN3 |Generates the calling sequence to |{ 
| find a constant and its asso- | 
| ciated Adcon in the Symbol Table. | 
CEKN4 |Generates the calling sequences to] 
obtain the location of an operand| 
in the expression tree, make the | 
appropriate entries in the | 
internal tables, and insert the | 
associated instructions into the | 
Code File. | 
CEKNS |Inserts previously specified | 
| 
| 
——4 
| 


| sequence of instructions (canned 

| code) into the Code File. 

}--—---41-----------—-------~-----------~-- 

{Phase 5 Macro Instructions 

cea i a a Sn mens a ees a lei ese 4 

| CEKSY Phase 5 PSECT. | 

{CEKSZ |EQU cards for the standard regist-| 

{ ex symbolic names. | 
| 
| 
| 
| 
4 


I 
|CEKS2 |Picks up a specified number of 
| characters from a table. 
j|CEKS3 |Decrements the print control line 
| | count. 
ree a ls aes a ee eee ae 
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n99 


Phase 1} (X = Set; O = Referenced Only ) Phase 2 (X = Set; O = Referenced Only) 


Representation 
File (PRF) 
Expression 
Representation 
File (ERF) 
Syr.bol Table 
rage Class 
Soruge Speci- 
“ication List 


Cross Reference 
Cin 
oro 


Dimension Table 
Storage Class 
Implicit Type 
Do Loop Stack 


Symbo! Table 
Alphameric 


(ESC) 
(SID) 
(PHIM) 
(ACOMP) 
(ARDIM) 
(SUBS) 
(IDATA) 
(EXPR) 
(LABL) 
(EQUA) 
(END) 
(EXTE) 
(CNVRT) 
(GOTO) 
(IF) 
(TYPE) 
(CONT) 
(DIMN) 
(COMM) 
tenes) Phase 3 (X = Set; O = Referenced Only) 
(EQUI) 
(DO) 
(BGNLP) 
(ENDLP) 
(ASS1) 
(FCON) 
(RWIO) 
(FORM) 
(PSR) 
(NAML) 
(BLDA) 
(BLDA2) 
(SFDEF) 
(SFEXP) 
(DATA) 
(IMPL) 
(IMPL2) 
(FALTH) 
(BLNK) 
(SUBE) 
(SUBE2) 
(CALL) 
(CALL2) 
(IOLST) 
(FNCLS) 
(LIBN) 
(STEN2) 
(ERR) 
(ARITH) 
(L8STR) 
(FLABL) 
(RTRAN) 
(FNAME) 
(TRMPRO) 
(FLRC) 
(IVST) 
(CKLIM) 
(CLLIM) 
(IVAL) 
(ICNV) 
(FCNV) 
(FLIC) 
(AARC) 
(CHKINT) 


(PHASE2) 
(FSCAN) 
(VSCAN) 





(RTN1) 
(LAB) 
(ISP) 
(FORMAT) 
(DX) 





xx KK KK 


O000xk X x x 








x KK MRK KKK 


Program 
Representation 
File (PRF) 
Symbol Table 
Expression 
Representation 
File (ERF) 
Parallel Loop 
Table (PLP) 
Current Loop 
Level (LEV) 
Current Next 
Table (CNT) 
Compute and 
Remove Table 
(CRT) 
Program File 
Triad Table 
Operand Push- 
down Table 
(OPT1) 


xxK KKK KKK OK 
° 
xO 


x 


OCOOx~x 


oO 
O° 


Oxxxxx 





*q XIGNaddW 


SHNIZNOW NVULWOd AG GCHONTNAIAY SATAWL YOCWW AO LSIT 


Phase 4 


(X = Set; O = Referenced ) 


General Register Table (MRM) 


Storage Class Table 
Program File (PF) 
Name Table 
Expression Table 


Symbol Table 


(RDIV) 
(RMUL) 
(RPLUS) 
(IDVDE) 
(IMPLY) 
(IPLUS) 
(CPLUS) 
(RLTNL) 
(ANDOR) 
(EQUAT) 


0oo0ao0o0o00o0 0 0 
00 00000 00 


« (FUNC) 


(TRBLD) 
(ASAR) 
(ASARS) 
(ASFR) 
(ASFRS) 
(SELFR) 
(FNDAR) 
(FNDFR) 
(FNDWS) 
(MAX) 
(MEMAC) 
(OPND) 
(RLSWS) 
(RSLT) 
(SADDR) 
(SELGD) 
(SELGM) 
(SELOP) 
(WGHT) 
(SLPOS) 
(SELSR) 
(SELDR) 
(INSOT) 
(COMMA) 
(AIF) 
(LIF) 


Oo Ox 00 


0900 xX 000 


Loop Table 


Floating-Point Register 
Table (MRMFR) 





Phase 4 (X = Set; O-=Referenced ) 


(BLI) 
(BL2) 
(BL3) 
(ENDLP) 
(AGO) 
(CGO) 
(ASSGN) 
(GOTO) 
(LABEL) 
(LBL) 
(AGEN) 
(PHAS4) 
(CSX) 
(KEY) 
(ENT) 
(RTRN) 
(CMUL) 
(CDIV) 
(RD) 
(OLIST) 
(NDLST) 
(STOP) 
(CALL) 
(DCOM) 
(OPENE) 
(FLUSH) 
(COVER) 
(EDIT) 
(KEY) 
(FETCH) 
(OPEN1) 
(OPEN2) 
(LADDR) 
(SLONE) 
(OPEN3) 
(OPEN4) 
(OPENS) 


Symbol Table 


Storage Class Table 


Program File (PF) 


General Register Table (MRM) 


xx xX OX Xx xX xX 


Name Table 


Expression Table 


Floating-Point Register 
Table (MRMFR) 
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List of Major Tables Referenced by FORTRAN Routines 


Appendix Ds: 


Phase 5 (X = Set; O = Referenced Only) 


Internal Symbol 
Dictionary (ISD) 
Program Module 
Dictionary (PMD) 


Symbol Table 
Storage Class 
Code File 
Constant 
Header Table 


(PHASES) 
(BUILD) 
(CMSEC) 
(SPECS) 
(PHEAD) 
(COSEC) 
(PRSEC) 


(ASSIST) 


(EDIT) 


(SYMSRT) 
(CRFSRT) 


(CONCV) 





Executive 


All Exec routines set the Intercom and Excom. 
CEKTF also sets the Symbol Table. 


666 


APPENDIX E: MODULE DICTIONARY 


The FORTRAN routines bear coded labels as well as mnemonic titles. The 5-character 
coded label begins with the letters CEK; the fourth and fifth identify the specific rou- 
tine. The entry points to a routine are specified by a sixth character appended to the 
coded label; for example, the coded label for the Master Input/Output routine is CEKTH, 
and there are entry points CEKTHA, CEKTHB, etc. 


FORTRAN ROUTINES LISTED BY CODED LABELS (Part 1 of 6) 


Fe a ey en ee ee ee {oS tts se 
{ Routine | Entry | | 1 | Chart | 
{| ID Label | Point | Purpose { Mnemonic | Phase | ID { 
[---------- t-------- jenna nnn nnn $---------- +------- 4------- 4 
| CEKAB | | Obtain-next-character { ESC | 1 | BV | 
| | CEKAB1 | Get next non-blank character | ESC | | | 
| {| CEKAB2 | Get next character (including blanks) | ESCB | | | 
| CEKAC | CEKAC1 | Statement identification | SID i 1 | CM { 
| CEKAD | CEKAD1 | Phase 1 main loop | PHIM | 1 | AM | 
| CEKAE {| CEKAE1 | Assemble components | ACOMP | 1 | BW | 
| CEKAF | CEKAFA | Process array dimension specification | ARDIM j 1 | CK | 
| CEKAG | CEKAG1 | Process subscripts | SUBS | 1 |. AO | 
| CEKAH | | Process initial value data {| IDATA | 1 | cr { 
| | | specification | | | | 
| | CEKAH1 | Entry for Type statements | TDATA | | | 
| | CEKAH2 | Entry for DATA statements | DDATA | { | 
| CEKAI | CEKAI1 | Process expression | EXPR | 1 | BL | 
| CEKAJ | CEKAJA | Process statement label | LABL | 1 | CN | 
| CEKAK | CEKAK1 | Process assignment statement | EQUA ] 1 | AN | 
| CEKAL | CEKAL1 | Process END statement | END i 1 |sB6 j 
| CEKAM | CEKAMA | Process EXTERNAL statement | EXTE { 1 | AO | 
| CEKAN | | Conversion | CNVRT i 1 | BM | 
| . | CEKAN1 | Converts constants to new | CNVRT | { | 
| | | type and checks legal type | | | | 
| { | mixes for expressions | | | | 
| | CEKAN2 {| Converts constants to new type { CNVRTD { | aif 
| CEKAQ | CEKAQA | Process GO TO statement | GOTO 1. 1 | AP | 
| CEKAR | CEKARA | Process IF statement | IF { 1 | AQ a 
| CEKAS | | Process Type statement | TYPE | 1 | AR | 
| {| CEKAS1 | Entry for INTEGER statements | INTE | | | 
| | CEKASR {| Entry for REAL statements | REAL | | | 
{ | CEKASC | Entry for COMPLEX statements | COMP | | | 
| | CEKASL | Entry for LOGICAL statements | LOGL | | | 
| | CEKASD | Entry for DOUBLE PRECISION statements | DOBP i | { 
| CEKAT | CEKAT1 | Process CONTINUE statement | CONT { 1 | None | 
| CEKAU | CEKADA | Process DIMENSION Statement | DIMN j 1 | AS | 
{| CEKAV | CEKAV1 | Process COMMON statement | COMM | 1 | AT | 
| CEKAW | | Process declatation |} DCL2 | 1 {| None | 
{ | | statements in Pass 2 | | | | 
| | CEKAW1 | Entry for COMMON statements | COMM2 | | | 
| | CEKAW2 | Entry for other declaration | DCL2 | | | 
| j | statements | | { | 
| CEKAX | | Process executable statements | EXEC2 | 1 | BH | 
| | | in Pass 2 | | | | 
| | CEKAX1 | Entry for no-flow statements | NF2 | | { 
| | CEKAX2 | Entry for flow-thru statements | FL2 | | | 
| CEKAY | CEKAYA | Process EQUIVALENCE statement | EQUI i 21 |ca | 
| CEKAZ | CEKAZ1 | Process DO statement | DO | 1 {| cc | 
| CEKBA | CEKBA1 | Analyzes and encodes begin | BGNLP 1 1 | FM | 
| | | loop information | | | | 
| CEKBB | CEKBBi {| Encodes the end loop entries | ENDLP { 1 {ce | 
| CEKBC | CEKBCA | Process ASSIGN statement | ASSI i; 1 | aw | 
| CEKBD { { Process file control statements | FCON { 1 | AX j 
Os sc cas nt ee Ma oe a A ed 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 2 of 6) 


a a ee ee et Se a a ee ee 
j Routine | Entry | | . { | Chart | 
| ID Label | Point | Purpose | Mnemonic | Phase | ID | 
faa ann nnn a fn nn nf nn nnn nn nn nnn nnn nnn fn nnn pn nnn np nn nnn 
| | CEKBD1 | Entry for BACKSPACE statement | BXSP | | | 
| | CEKBD2 | Entry for END FILE statement | ENDF i i i 
| | CEKBD3 {| Entry for REWIND statement | REWI | | { 
| CEKBE | | Process input/output statements | RwIO | 1 | ay | 
| | CEKBE1 | Entry for READ statement | READ | | 
| | CEKBE2 | Entry for WRITE statement | WRIT | | { 
| | CEKBE3 | Entry for PRINT statement | PRNT | | - | 
1. | CEKBE4 | Entry for PUNCH statement | PUNCH | | | 
| CEKBF | CEKBF1 | Process FORMAT statement | FORM | 1 | AZ | 
| CEKBG { | Process PAUSE, STOP, RETURN | PSR | 1 | BA | 
| | | statements { | | | 
| | CEKBG1 | Entry for PAUSE statement | PAUS | | | 
{ | CEKBG2 | Entry for STOP statement | STOP | | | 
{ {| CEKBG3 | Entry for RETURN statement | RETU i | j 
| | CEKBG4 | Stop when execution flows into END | ESTOP | | | 
| CEKBH | CEKBH1 | Process NAMELIST statement | NAML | 1 | BB { 
| CEKBI | CEKBI1 | Process BLOCK DATA statement | BLDA | 1 | BC { 
| CEKBJ | CEKBJ1 | Sets the program type for | BLDA2 | 1 {| None | 
j } | the BLOCK DATA statement ts | | | 
| CEKBK | CEKBK1 | Enables EXPR to translate | SFDEF | 1 | BN { 
| | | a statement function expression { | { - | 
| CEKBL { {| Expand-statement-functions | SFEXP { 1 | BO | 
| | CEKBL1i | Statement function expansion | SFEXPI | | | 
{ | | initialization { - { | | 
| | CEKBL2 | Statement function expansion | SFEXPC | | | 
| j | continuation | | | | 
| CEKBM | CEKBM1 | Process DATA statement | DATA | 1 | BD. | 
| CEKBN | CEKBN1 | Process IMPLICIT statement | IMPL | 1 | BE { 
| CEKBP | CEKBPi { Perform final IMPLICIT {| IMPL2 i 1 | None | 
| | | statement housekeeping | | | | 
| CEKBQ | CEKBQA | Determine if a label reference refers | FALIH \ 1 {| co | 
| ] | to the current statement | i | | 
| CEKBR | CEKBRi | Process a blank source statement | BLNK | 1 | None | 
| CEKBS | | Process subprogram entry statements | SUBE | 1 | BF | 
{ | CEKBS1 | Process ENTRY statement | ENTR | | | 
| | CEKBS2 | Process FUNCTION statement |. FUNC | | | 
{ | CEKBS3 | Process SUBROUTINE | SUBR | | | 
| CEKBT j | Process subprogram entry | SUBE2 i 1 | BI | 
| | | statements in Pass 2 | | | | 
| | CEKBT1 | Process ENTRY statement | ENTR2 | | | 
| | CEKBT2 | Process FUNCTION statement | FUNC2 { { | 
| | CEKBT3 | Process SUBROUTINE statement | SUBR2 j | | 
| CEKBU | CEKBU1 | Process CALL statement {| CALL | 1 | None | 
| CEKBV | CEKBV1 | Process CALL statement in Pass 2 | CALL2 | 1 | BJ | 
| CEKBW | CEKBW1 | Analyze and encode list elements for | IOLST | 1 | CE | 
| | | READ, WRITE, PRINT, and PUNCH i | | | 
| { | statements | | | | 
| CEKBX | CEKBX1 | Determine the proper class | FNCLS i 1 | BP | 
| | | of a function | 1 | | 
| CEKBY ] { Select-library-functions | LIBN | 1 | BQ | 
| { CEKBY1 | Functions with automatic typing | LIBN { | | 
| | CEKBY2 | Functions used as arguments | LIBNA | | | 
{ | CEKBY3 | Exponential library function | LIBNX | | | 
| | | selection | | | | 
| CEKBZ | CEKBZ1 | Determine statement function | STFN2 { 1 | None | 
| | | in Pass 2 | | | 
| CEKCA | {| Generate diagnostic messages | ERR | 1 {| cP | 
| | CEKCAA | Warning messages (error level 1) | ERR1 | | | 
| | CEKCAB {| Serious messages (error level 2) | ERR2 | | | 
| | CEKCAC | Serious messages associated | ERRD | | | 
| | | with statement deletion | { | | 
i | | (error level 2) | | | | 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 3 of 6) 


Pees et Sa a a ra te re en 
| Routine | Entry | | | | Chart | 
{| ID Label | Point | Purpose | Mnemonic | Phase | ID | 
|------—---}--------}---------------------------------------- ---------- f--- -- 4 ------- 
| | CEKCAD | Fatal messages (error level 3) | ERR3 | { | 
| CEKCB {| CEKCB1 | Perform constant arithmetic | ARITH { 1 | BR | 
| CEKcCC j CEKCCA | Process label string | LBSTR | 2. V-CL { 
| CEKCD { CEKCD1 | Process format label for | FLABL { 1 {| CF { 
| | | input/output statements | | | | 
| CEKCE {| CEKCE1 | Process ERR and END labels | RTRAN i} 12 | cG | 
| | | for input/output statements | { | | 
| CEKCF | CEKCF1 | Process FORMAT or NAMELIST name | FNAME | 1 | CH | 
| CEKCG | CEKCG1 | Process subscript term {| TRMPRO | 1 | BS | 
| CEKCH { CEKCH1 | File real and complex | FLRC i 1 | Bx | 
| | | constants in Symbol Table | | | | 
| CEKCI {| CEKCI1 | Insert variable in Symbol Table } Ivst } 21 | BY | 
| CEKCJ { CEKCJ1 { Check loop limits | CKLIM | 1 {cD | 
| CEKCK { CEKCK1 | Clear loop limits | CLLIM | 1 | None | 
| CEKCL | | Process initial value {| IVAL | 1 { { 
| | CEKCLi | First value in type statement group | IVAL | { co | 
| | CEKCL2 | Other than first value in | IVAL1 | | AL | 
| | | type statement group | | | | 
| CEKCN } CEKCN1 | Convert decimal to binary integer {| ICNV | 1 | BZ | 
| CEKCP | CEKCP1 | Convert decimal to floating binary {| FCNV j 1 {| CA | 
| CEKCQ | CEKCQ1 | File integer constant {| FLIC | 1 { None | 
| CEKCR | CEKCR1 | Provide service in processing actual | AARG | 1 { Br | 
i | | argument | | | | | 
| CEKCS | { Provide for treatment of interruptions| CHKINT | 1 | BU | 
| } CEKCS1 | Divide check | CEKCS1 | j | 
| | CEKCS2 | Exponent overflow | CEKCS1 | | | 
{ | CEKCS3 | Return flags | CHKINT | | { 
| | CEKCS4 {| Enable 3 interruptions | CHKINT | | BU | 
| | CEKCS5 | Disable 3 interruptions | CEKINT j | BU | 
| CEKJA { CEKJA1L | Control Phase 2 | PHASE2 | 2 {| Fig.i9| 
| CEKIB | CEKJB1 | Process label references | FSCAN j 2 | CR | 
| | | and definitions { | | { 
| CEKIC | CEKJC1 | Make storage assignments | VSCAN { 2 {| CQ | 
| | { for all variables | | {| | | 
| CEKJD | CEKIJDi | Process label references | RINL | 2 | cs | 
| CEKIJE | CEKJE1 | Process label references | LAB | 2 { cT | 
| CEKJF | CEKJFi | Inspect statement label references | IsP | 2 { None | 
| CEKIG | CEKJG1 [| Inspect format reference | FORMAT | 2 } None | 
| CEKIJH | { Generate diagnostic messages | DX | 2 j{ cu | 
| | CEKJH1 | Warning messages | DXw | 2 | { 
| {| CEKJH2 {| Serious messages | DXF | 2 | | 
| | CEKJH3 | Abort messages | DXA | 2 { j 
| CEKKA ‘| CEKKAA | Acquire entry from Compute | - i 3 | DP { 
{ | j and Removal Table | | | | 
| CEKKB | CEKKBA | Generate Polish expression ij - | 3 {| DQ | 
| CEKKC | CEKKCA {| Process End Loop entries in PRF Table | - | 3 | cx | 
| CEKKE | CEKKEA | Scan entry in the Expression File | - | 3 | DA | 
| CEKKF | CEKKFA | Pushdown primitive operator {- j 3 | De | 
| CEKKG | CEKKGA | Determine the forward | - { 3 {| DD | 
| | | compute point and removal | | | | 
| | | level for a variable | | | | 
| CEKKH | CEKKHA | Manipulate Triad File [= | 3 | DF | 
| CEKKI { CEKKIA | Determine commonality or | - | 3 {| DH i 
| | | removability of an expression | | i | 
| CEKKJ | CEKKJA | Determine whether entries = i 3 | DK j 
| | { in the PRF are common | | | | 
| CEKKK | CEKKKA | Establish common expression {| - | 3 { DJ | 
| CEKKL | CEKKLA | Form operand list expression | - | 3 | DE | 
| CEKKM | CEKKMA | Revise subscript expression = | 3 {| DO | 
| CEKKN | CEKKNA | Put expression into cannonical form {= | 3 | DH | 
| CEKKO | CEKKOA { Save popularity counts for | - | { | 
{ | { register assignment | | | { 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 4 of 6) 
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(Sos Sry te Co a ee ee ne ee = {+ S=-= foo. se 1 
{ Routine | Entry | j | } Chart 
| ID Label { Point | Purpose {| Mnemonic | Phase | ID 
}------—--+-------- $--------------------------------—------ $---------- +------- +------- 
| CEKKP | CEKKPA | Search and insert triad | - | 3 | DG 

| CEKKR { { Control Phase 3 | | 3 {| cv 

| | CEKKRA | standard entry by EXEC [= | 3 | 

| {| CEKKRE | Error exit by all Phase 3 routines {| - | 3 | 

| CEKKS os | Phase 3 storage | PSECT | 3 | None 
| CEKKU | CEKKUA | Manipulates the PRF entry I - | 3 | cW 

| | | into its proper PF format | | | 

| CEKKV | CEKKVA | Process the Begin Loop 1 | - | 3 | cY 

| | | entries in PRF | | | 

| CEKKW | CEKKWA {| Process the Begin Loop 2 {- | 3 | CZ 

| | | entries in PRF | | { 

| CEKLA | CEKLAA | Label common expression = | 3 {| DL 

| CEKLB {| CEKLBA | File a constant, compute {- | 3 | IW 

| | | and file its covering | | | 

j t | Adcon, and compute displacement | | | 

| CEKLD | CEKLDA | Expunge a removable subexpression Le | 3 {| DN 

| CEKLE | CEKLEA | File CRT entries {- | 3 | DM 

| CEKLF | CEKLFA | Copy and edit an expression | <- | 3 {| DB 

| CEKLI | CEKLIA | Generate loop text-expression | - | 3 | DT 

| CEKMA | CEKMA1 | Generate real divide | RDIV | 4 | ES 

| CEKMB | CEKMB1 | Generate real multiply | RMUL | 4 | ER 

{| CEKMC | CEKMC1 | Generate real plus j RPLUS | 4 | KM 

| CEKMD | CEKMD1 | Generate integer divide | IDVDE | 4 | EV 

| CEKME {| CEKME1 | Generate integer multiply | IMPLY | 4 | EW 

| CEKMF | CEKMF1 | Generate integer plus | IPLUS | 4 | ET 

| CEKMG | CEKMGi | Generate complex plus | CPLUS | 4 | EX 

| CEKMH | CEKMH1 | Generate relational expression | RLINL | 4 | FA 

| CEKMI | CEKMI1 { Generate logical expression | ANDOR | 4 | FB 

| CEKMJ | CEKMJ1 { Process equation program file entry {| EQUAT | 4 | DW 

| CEKMK | CEKMK1 | Generate external function | FUNC | 4 | FD 

| | CEKML2 {| Generate tree entries for a con- | | 4 | None 
| { | version function | | | 

| CEKML {| CEKML1 | Build expression tree | TRBLD | 4 | EN 

| CEKMM | CEKMM1 | Make initial assignment to | ASAR i 4 | GE 

| j | General Register | | | 

| CEKMN | CEKMNi | Assign to Arithmetic Register | ASARS | 4 | GF 

| CEKMO | CEKMO1 | Make initial assignment to | ASFR | 4 | None 
| | | Floating-Point Register | | | 

| CEKMP { CEKMP1 {| Make synonym assignment | ASFRS | 4 | GG 

| | | to Floating Register | | | 

| CEKMQ | CEKMQ1 | Select Floating Register | SELFR | 4 | GD 

| CEKMR | CEKMR1 | Search General Registers {| FNDAR | 4 | FX 

| CEKMS | CEKMS1 | Search Floating Registers | FNDFR | 4 | FY 

| CEKMT | CEKMT1 | Find temporary storage | FNDWS | 4 | GH 

| CEKMU | CEKMU1 | Generate maximum operator | MAX | 4 |; Fc 

| CEKMV | CEKMV1 | Access storage | MEMAC | 4 | FM 

{ | CEKMV2 | | LSUB | 4 | None 
| CEKMW | CEKMW | Process operands | OPND | | FZ 

| | CEKMW1 | Process variable or constant | OPND | 4 | 

| | CEKMW2 | Process operator | TROP | 4 | NK 

| | CEKMW3 | Process common expression | CSOP | 4 | NK 

| CEKMW | CEKMWi | Process operand | OPND | 4 | FZ 

| CEKMX | CEKMX1 | Release temporary storage | RLSWS | 4 | GI 

| CEKMY {| CEKMY1 | Process Result-Register operand | RSLT | 4 | GA 

| CEKMZ | CEKMZ1 | Generate local branch {| SADDR | 4 | FN 

| CEKNA | CEKNA1 | Determine whether division | SELGD | 4 | FU 

| | | may take place in register { | | 

| | | pair containing numerator | | | 

| CEKNB | CEKNB1 | Determine availability of | SELGM i 4 |Fr 

| | | register for multiplication | | | 

| CEKND | CEKNDi | Select operand | SELOP i; 4 | FQ 
t.-__-- 1k + + bb be 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 5 of 6) 


fee CS fo Se tn a a ee ee SSeS SS ; armas > iain 
| Routine | Entry | { | | Chart | 
| ID Label | Point | Purpose { Mnemonic | Phase | ID | 
manana nnn nnn nnn ff 
| CEKNE | CEKNE1 | Assign a weight to each non- | WGHT | 4 {| EO | 
i | | primitive mode of the { [. -e: | { 
| | | expression tree | | | | 
| CEKNF | CEKNF1 | Select position for operation | SLPOS | 4 | FR | 
| CEKNG | CEKNG1 | Select single General Register | SELSR | 4 | GB | 
| CEKNH | CEKNH1 | Select even/odd General | SELDR | 4 {| Gc | 
| | | Register pair l | | | 
| CEKNI | CEKNI1 | Output code file | INSOT | 4 | GK | 
| | CEKNI2 | Error processing for code {| *. | 4 {| None | 
| | | file overflow | | | | 
| CEKNI | | Process comma operator | COMMA | 4 | FE | 
| | CEKNJ1 | Entry for other cases | COMMA | | | 
| | CEKNJ2 | Entry for CEKMK when | COMA2 | | | 
| | | function has only one argument j | | | 
| CEKNK | CEKNK | Process arithmetic IF PF entry | AIF | 4 | Dx | 
| CEKNL | CEKNL1 | Process logical IF PF entry | LIF | 4 |. DY | 
| CEKNM | CEKNM1 | Process begin loop 1 PF entry {| BL1 | 4 | EE | 
| CEKNN {| CEKNN1 | Process begin loop 2 PF entry | BL2 | 4 {| EF | 
| CEKNO | CEKNO1 | Process begin loop 3 PF entry | BL3 | 4 | EG | 
| CEKNP | CEKNPi | Process end loop PF entry | ENDLP | 4 | EH | 
| CEKNQ | CEKNQ1 | Process assigned GO TO PF entry {| AGO | 4 | EA | 
| CEKNR | CEKNR1 | Process computed GO TO PF entry | CGO | 4 | EB | 
| CEKNS | CEKNS1 | Process ASSIGN PF entry | ASSGN |} 4 | DZ | 
| CEKNT | CEKNT1 | Process GO TO PF entry {| GO TO | 4 { None | 
| CEKNU | CEKNU1 | Process referenced label PF entry | LABEL | 4 | DV | 
| CEKNV | CEKNV1 | Generate labeled branch {| LBL | 4 | FO | 
| CEKNW | CEKNW1 | Generate arithmetic expression | AGEN | 4 | EM | 
| CEKNX {| CEKNX1 | Control Phase 4 | PHAS | 4 | Fig.30| 
| CEKOB | CEKOB1 | Count common expression usage { CSX | 4 | EP | 
| CEKOC | CEKOC1 | Determine the location of | KEY | y | FV | 
| i | both operands of the I | { | 
{ | | current operation | | | | 
| CEKOD | CEKOD1 | Process entry point | ENT j 4 | DU | 
| CEKOE | CEKOE1 | Process RETURN | RTRN | 4 | ED l 
| CEKOF | CEKOF1 | Generate complex multiply | CMUL | 4 {| EY | 
| CEKOG | CEKOG1 | Generate complex divide | CDIV | A | EZ | 
| CEKOH | CEKOH1 { Process input/output { RD {| 4 | EI { 
| | | statement PF entry | | | { 
| CEKOI | CEKOI1 | Process input/output list | IOLIST | & | EJ | 
| | { element PF entry { | | | 
| CEKOJ 1 | Process and list PF entry | NDLST | 4 | EK | 
| | CEKOJ1 | Process an end list program | NDLST | { | 
| | {| file entry [ | | | 
| | CEKOJ2 | Generate a standard call linkage { LINK | | | 
| CEKOK | CEKOKi | Process STOP and PAUSE { STOP | 4 | EL | 
| j | statement PF entry | i | | 
| CEKOL | CEKOL1 | Process CALL statement | CALL { 4 | EC | 
| CEKOM | DCOM | Control selection of open {| DCOM | 4 | FF | 
| { | function processing { | | | 
| CEKOM2 | OPEN6 | Process function numbers | OPEN6 | 4 | FL | 
| | | 3, 4%, 6-11, 16, 21, 24, | | | | 
| | | 25, 28-32 | | | | 
{| CEKON | CEKON1 | Clear register | FLUSH | 4 | GS | 
| CEKOP | CEKOP1 | Obtain Adcon cover for { COVER { 4 | None | 
| | | generation of a reference { | | | 
| CEKOQ } CEKOQ1 | Edit for code file | EDIT | 4 | None | 
| CEKOR | CEKOR1 | Locate single operand | KEY1 | 4 | FW | 
| CEKOS | CEKOS1 | Ensure that each argument of a | FETCH | 4 | FP | 
{ | | function or subroutine is in memory | | | | 
{ | | with desired sign | | | | 
| CEKOT | CEKOT1 | Process open function | OPEN1 | 4 | FG | 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 6 of 6) 


er a ee a ee et ee ee ee ee es err ry 
| Routine | Entry | | | { Chart | 
| ID Label | Point | Purpose | Mnemonic | Phase | ID | 
}------—— ¢-------- $------——-- + ---- = --------- === === $---------- $-—----- +--—---- { 
{| CEKOU { CEKOU1 {| Process open function {| OPEN2 | 4 | FH | 
| CEKOV | CEKOV1 | Add by load address | LADDR i 4 | EW | 
| CEKOW | CEKOW1 | Select one operand in a register | SLONE | 4 {| FS | 
| CEKOX | CEKOX1 | Process open function | OPEN3 | 4 | FI | 
| CEKOY { CEKOY1 | Process open function | OPENS | 4 | FJ | 
| CEKOZ | CEKOZ1 | Process open function | OPENS | 4 | FK | 
| CEKSA | CEKSA1L | Generate FORTRAN compiler output | PHASES | 5 | None | 
| CEKSB | CEKSB1 | Build object program module | BUILD | 5 {6 { 
{ CEKSC | CEKSC1 | Generate common control section | CMSEC | 5 { SM. | 
{| CEKSD | CEKSD1 | Process preset data | SPECS | 5 { GP | 
| CEKSE | CEKSE1 | Produce page headings for | PHEAD | 5 | None | 
| | | each Phase 5 output page | | | | 
| CEKSF | CEKSF1 | Generate code control section | COSEC | 5 | GN | 
| CEKSG | CEKSG1 | Build PSECT | PRSEC | 5 | GO { 
| CEKSH { CEKSH1 | Generate Internal Symbol Dictionary | ASSIST | 5 {| GQ | 
| CEKST { CEKSI1 | Document object program | EDIT | 5 | GR | 
| CEKSJ | CEKSJ1 | Sort symbol table | SYMSRT | 5 {| GS | 
{| CEKSK { CEKSK1 | List cross-reference {| CRFSRT | 5 | GU | 
| CEKSL | CEKSL1 | Convert constant {| CONCV { 5 | GT | 
| CEKTA | {| Control compiler phases | PHC | Exec | AB | 
| | CEKTAA | LPC to FORTRAN initial { | | | 
i | CEKTAB | LPC to FORTRAN continue | | { | 
{ | CEKTAC | LPC to FORTRAN early-end | | j | 
| CEKTC | CEKTCA | Get next source statement | GNSS { Exec | Ac | 
| | | {contains CEKTI and CEKTJ) | | | | 
| CEKTD | CEKTDA | Process terminal modification {| MOD | Exec | AD | 
| CEKTE {| CEKTEA | Receive diagnostic messages { RDM | Exec | AE i 
| CERTF i | Constant filers | CONFIL | Exec | AF | 
| | CEKTFB | File I*2 constants | CONI2 | | | 
| | CEKTFc | File 1*4 constants | CONI4 { | | 
| | CEKTFD {| File kR*4 constants | CONRS ‘| | { 
{ | CEKTFE | File R*8 constants | CONRS j | | 
{ | CEKTFF | File C*8 constants | CONC8 | | | 
| | CEKTFG | File C#16 constants | CONC16 j | |. 
{ | CEKTFI | File storage Class 4 | FLAD& | | { 
| | | other than R-cons | { | | 
| | CEKTFJ | File storage Class 5 constants | FLADS | | | 
| | CEKTFK | File V-con, R-con pairs | FLADVR 1 { | 
{ | CEKTFL | File labels {| FLL | | | 
i | CEKTFM | Create and file labels | CRL | AN j | 
| CEKTH | {| Provide communication | MIO | Exec | AG | 
| | | between interface programs { { | | 
{ | | (contains CEKTK, CEKTL, and CEKTM) j | | | 
{ | CEKTHA | Open the list data set | LDOPEN | | AW | 
| | CEKTHB | Close the list data set | LDCLOSE | J | 
| | CEKTHC {| Obtain a line for GNSS | LINEIN | | | 
| | CEKTHD | Output diagnostic lines { DIAGOUT | | | 
| | CEKTHE | Add lines to list data set | OLR | | i 
| | CEKTHF {| Flush a statement buffer | BFLUSH | | | 
| CEKTI | CEKTIA | Analyze console source line | ANALYZ | Exec | AH | 
| CEKTJ | CEKTJA | Inspect a console character | INSCON {| Exec | AI | 
| CEKTK | CEKTKA { Move a line to a list data set. | LDMOVE | Exec | AJ | 
| CEKTL | CEKTLA {| Build a list data set buffer | BOILD | Exec | AK | 
| CEKTM {| CEKTMA {| Flush a list data set buffer | FLOSH | Exec | AL | 
| CEKTQ | CEKTQ1 | Prepare hexadecimal | COMDUMP | Exec | None | 
i | | dumps of internal files | | | | 
{| CEKTS {| CEKTSA | Form lines and issue them | LINDUMP | Exec | None | 
| | | via PUT macro instruction ! i i | 
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FORTRAN ROUTINES LISTED BY MNEMONICS (Part 1 of 6) 


CE re ee rg eee ee ee ee a ee ee ee 

| | Entry | { Routine] { Chart | 
| Mnemonic | Point | Purpose {| ID Label|{ Phase | ID | 
}----------4--------}------—------------------------4---------4-------f------+ 
| AARG | CEKCR1 | Provide service in processing | CEKCR | i | Br | 
| actual argument | | | | 
| ACOMP | CEKAE1 | Assemble components | CEKAE | 1 | BW | 
| AGEN | CEKNWi | Generate arithmetic expression | CEKNW i 4 | EM | 
{ AGO | CEKNO1 | Process assigned GO TO | CEKNQ | 4 {| EA | 
| | | PF entry i | | 
| AIF | CEKNK1™| Process arithmetic IF PF entry | CEKNK | 4 | Dx | 
| ANALYZ | CEKTIA | Analyze console source line j CEKTI | Exec | AH { 
| ANDOR | CEKMI1 | Generate logical expression {| CEKMI | 4 | FB | 
| ARDIM | CEKAFA | Process array dimension | CEKAF | 1 | CK | 
| | {| specification | | | | 
| ARITH | CEKCB1 | Perform constant arithmetic {| CEKCB | i | BR | 
| ASAR | CEKMM1 | Make initial assignment to | CEKMM | 4 | GE | 
| | {| General Register | | j | 
| ASARS | CEKMN1 | Assign to Arithmetic Register | CEKMN | 4 | GF { 
| ASFR | CEKMO1 | Make initial assignment to {| CEKMO | 4 | None | 
| | | Floating-Point Register | | { | 
| ASFRS | CEKMP1 | Make synonym assignment | CEKMP | 4 { GS | 
| j | to Floating Register | | | | 
| ASSSN | CEKNS1 | Process ASSIGN PF entry | CEKNS [| 4 | DZ [. 
{ ASSI {| CEKBCA | Process ASSIGN statement | CEKBC | 1 | AW { 
j ASSIST | CEKSH1 | Generate Internal Symbol | CEKSH | 5 | Go | 
| j } Dictionary i | | | 
| BGNLP {| CEKBA1 | Analyzes and encodes begin | CEKBA | 1 | CB | 
| { | loop information | | | | 
| -BLDA ] CEKBI1 | Process BLOCK DATA statement | CEKB1 | 1 {| BC | 
{| BLDA2 | CEKBJ1 | Sets the program type for | CEKBJ | 1 {| None | 
| | { the BLOCK DATA statement | | | | 
J Nae J ~iK..7 | .rocess: a2 o14an-- scree | CEKSn { 1 i Rae! 
l { | statexent | | | I 
{| BL | CEKNM1 | 2rocess oe@ygin 1ioop 1 PF entry | CEKNM | 4 { EF. j 
| BL2 | CEKNN1 | Process begin ioop 2 PF entry | CEFNN | 4 | =F { 
| BL3 { CEKNO1 j Process cegin loop 3 PF entry {| CEKNO i 4 | EG | 
j 2° ILS | CPETE* j uals - iist deta set ouftfer [oe a { *xec | R&R { 
| RUILD | CEKS31 | -uild object program module | CEXSB | 5 [ G { 
| CALL | CEKBO1 | Process CALL statement | CEKBU | 1 { None | 
| CALL | CEKOL1 | Process CALL statement | CEKOL | 4& | EC { 
| CALL2 {| CEKBVi | Process CALL statement in | CEKBV | 1 | Bo | 
| | | Pass 2 | | | | 
| CDIV | CEKOG1 | Generate complex divide | CEKOG | 4 | EZ | 
| CGO {| CEKNR1 | Process computed GO TO | CEKNR { 4 | EB { 
i | {| PF entry | { i { 
{| CHKINT | { Provide for treatment of | CEKC | 1 {| BU | 
| | | interrupts | | | | 
| | CEKCS1 | Divide check | | | | 
| | CEKCS2 {| Exponent overflow | | | | 
| | CEKCS3 | Return flags | | | | 
| CKLIM | CEKCJ1 {| Check loop limits { CEKCJ | 1 | cD { 
| CLLIM | CEKCK1 | Clear loop limits | CEKCK { 1 { None | 
| CMSEC | CEKSC1 | Generate common control section| CEKSC | 5 { GM { 
| CMUL | CEKOF1 | Generate complex multiply | CEKOF | 4 | EY | 
{ CNVRT | { Conversion | CEKAN { 1 | BM | 
| CNVRT | CEKAN1 | Converts constants to new | { | | 
| | | type and checks legal type | | | { 
{ | | maxes for expressions | J | | 
{| CNVRTD j C2KANZ | Convercs constants to new typo<c | | { | 
J} TO DUMP 4 CLRTC: | “tianp Complaer 41.€ j CEKIS [Eton eRe { 
{| COMM | CEKAV1 | Process COMMON statement | CEKAV | 1 { aT | 
| COMMA | { Process comma operator | CEKNI j 4 | FE | 
| | CEKNJ1 | sentry tor other cases | | | { 
| | CEKNJ2 | Entry .or CEKMK when function | | | | 
| | { has cnly cne argument | | | | 
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FORTRAN ROUTINES LISTED @Y MNEMONICS (Part 2 of 6) 


se To T 
l | Entry | 
{ Mnemonic | Point | 
f--------—- +--------+ 
j CONCV | CEKSL1 | 
| CONFIL | | 
| | CEKTFB | 
| | CEKTFC | 
| | CEKTFD | 
| | CEKTFE | 
| | CEKTFF + 
j | CEKTFG | 
| | CEKTFI | 
| | | 
| | CEKTFIJ | 
| | 
| | CEKTFK | 
| | CEKTFL | 
| | CEKTFM | 
| CONT | CEKAT1 | 
| COSEC | CEKSF1 | 
| COVER {| CEKOP1 | 
| | 
| { 
{| CPLUS | CEKMS1 | 
| CRFSRT | CEKSK1 | 
{ CSX | CEKOR1 j{ 
| DATA | CEKBM1 | 
| DCL2 | | 
| { | 
| | CEKAW1 | 
| | CEKAW2 | 
| 
| | DCOM | 
{ | | 
| | CEKOM2 | 
| DIMN | CEKAUA | 
{ DO | CEKAZ1 | 
| Dx | 
| { CEKJH1 | 
| | CEKJH2 | 
| | CEKIJH3 | 
| EDIT | CEKOQ1 | 
{| EDIT | CEKSI1 | 
| END | CEKAL1 | 
| ENDLP | CEKBB1 | 
| ENDLP | CEKNP1 | 
| ENT | CEKOD1 | 
{| EQUA | CEKAK1 | 
| EQUAT | CEKMJ1 | 
| EQUI | CEKAYA | 
| ERR | | 
| {| CEKCAA | 
1 | 
| | CEKCAB | 
| | | 
| | CEKCACC| 
| | | 
| | | 
| | CEKCAD | 
| | | 
{| ESC | | 
| | CEKAB1 | 
| | CEKAB2 | 
| { { 
Lee Seat bee L 


Convert constant 

Constant filers 

File I*2 constants 

Fite I*4 constants 

File R*4 constants 

File r*8 constants 

wile C#8 constants 

Fiie C#16 constants 

File storage Ciass 4 con- 
Stants other than rR-cons 

File storage Class 5 
constants 

File V-con, x-con pairs 

File Labels 

Create and file iabels 

Process CONTINUE statement 

senerate code control section 

Obtain adcon cover for 
generation of a storage 
reference 

Senerate complex plus 

List cross-reference 

Count common expression usage 

Process DATA statement 

Process aeclaration state- 
ments in Pass 2 

entry for COMMON statements 

Entry for otner declaration 
statements 

Control selection of open 
function processing 

OPEN6 function 

Process DIMENSION statement 

Process DO statement 

Generate diagnostic messages 

AJarning messages 

Serious messages 

Abort messages 

Edit for code file 

Document object program 

Process END statement 

Encodes the end loop entries 

Process and loop PF entry 

Process entry point 

Process assignment statement 

Process equation PF entry 

Process EQUIVALENCE statement 

Generate diagnostic messages 

Warning messages (error 
level 1) 

Serious messages (error 
level 2) 

Serious messages associated 

with statement deletion 
(error level 2) 

Fatal messages (error 
level 3) 

Obtain next character 

Get next non-blank character 

Get next character (including 
bianks) 


See Re 
} routine] | 
} ID Label] Phase | 
+-------— $------- + 
| CEKSL j 5 | 
| CEKTF | Exec | 
| | { 
| | | 
| | | 
| | | 
| { | 
| | | 
| | 
| | | 
| { 
| | | 
| | | 
| | | 
| | 
| CEKAT | 1 | 
| CEKSF | 5 | 
| CEKOP | 4 | 
| | | 
| | | 
| CEKMG | 4 j 
| CEKSK | 5 j 
| CEKOB | 4 | 
| CEKBM | 1 | 
| CEKAW | 1 | 
| | | 
| | | 
| | | 
| | | 
| CEKOM | 4 | 
| | | 
| | | 
| CEKAU | 1 i 
| CEKAZ | 1 | 
| CEKJH | 2 | 
| ; 2 | 
| ! 2 4 
| ; 2 | 
| CEKOQ | 4 | 
| CEKSI | 5 | 
| CEKAL | 1 | 
| CEKBB | 1 | 
| CEKNP | 4 | 
| CEKOD | 4 | 
| CEKAK | 1 | 
| CEKMJ | 4 | 
| CEKAY | 1 | 
| CEKCA | 1 | 
| | | 
| | | 
| | | 
| | | 
| | i 
| | { 
| | | 
| | | 
| | | 
| CEKAB | i | 
| | { 
l | | 
{ | | 


None 
GN 
None 


EX 
GU 
EP 
BD 


None 
None 


FF 


AS 
AV 
cU 


None 
GR 
BG 
cc 
EH 
DU 
AN 
DW 
AU 
cP 


GO 


BV 
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FORTRAN ROUTINES LISTED BY MNEMONICS (Part 3 of 6) 


Ce ee i ee ee ee eee en eee 
| | Entry | | Routine] - { Chart | 
| Mnemonic | Point | Purpose | ID Label| Phase | ID | 
}---------- f-------- }~------------------------------- $--------- }------- +------- { 
{ EXEC2 | | Process executable statements | CEKAX | 1 | BH | 
| | | in Pass 2 l | | | 
| | CEKAX1 | Entry for no-flow statements | | | | 
| | CEKAX2 | cntry for flow-thru | | | | 
| | | statements | | | | 
| EXPR | CEKAI1 | Process expression | CEKAI | 1 | BL | 
| EXTE | CEKAMA | Process EXTERNAL statement { CEKAM | 1 | AO { 
| FALTH | CEKBGA | Determine if a label ref- | CEKBQ | 1 | co | 
| | | erence refers to the current | | | | 
| | | statement l | | | 
{ FCNV | CEKCP1 | Convert decimal to floating | CEKCP | 1 | | 
| i | binary 3 | i { | 
| FCON | | Process file control | CEKBD { 1 {| AX | 
{ | statements | { | | 
{ | CEKBD1 | Entry for BACKSPACE statement | | | | 
| | CEKBD2 | Entry for END FILE statement | | | | 
| | CEKBD3 | Entry for REWIND statement | { | | 
| FETCH | CEKOS1 | Ensure that each argument | CEKOS | 4 | FP | 
| | { of a function or subroutine | | | | 
| | | is in storage with desired | | | | 
| | { sign | | l | 
} FLABL | CEKCD1 | Process format label for {| CEKCD | 1 | CF | 
| | | input/output statements | | { | 
] FLIC | CEKCQ1 | File integer constant | CEKCQ | 1 | None | 
{ FLRC | CEKCH1 | File real ana complex con- | CEKCH | 1 | BX | 
| | {| stants in Symbol Table | | | | 
{ FLUSH | CEKTMA | Flush a list data set buffer | CEKTM | Exec | AL | 
| FLUSH | CEKON1 | Clear register storage | CEKON | & | GJ | 
| FNAME | CEKCF1 | Process FORMAT or NAMELIST | CEKCF | 121 | CH | 
i | {| name { | { | 
| FUONCLS | CEKBX1 | Determine the proper class | CEKBX j 1 {| BP | 
| | | of a function | | | { 
| FNDAR | CEKMR1 | Search General Register | CEKMR | 4 | FX | 
| FNDFR | CEKMS1 | Search Ploating Register | CEKMS | 4 | FY | 
| FNDWS | CEKMT1 | Find temporary storage | CEKMT { 4 | GH | 
| FORM | CEKBF1 [{ Process FORMAT statement | CEKBF | 1 | AZ | 
| FORMAT | CEKJG1 | Inspect FORMAT reference | CEKIG j 2 | None | 
| FSCAN | CEKJBi | Process label references and | CEKJB | 2 {| cR | 
| | | definitions { | | | 
| FUNC | CEKMK1 | Generate external function | CEKMK | 4 | FD | 
| SNSS | CEKTCA {| Get next source statement | GEKTC | Exec | AC | 
| | { (contains CEKTI and CEKTJ) | | | | 
{| GoTo | CEKAQA | Process GO TO statement | CEKAQ I 1 | AP | 
| GOTS | CEKNT1 | Process GO TO PF entry | CEKNT | 4 { None | 
|] ICNV | CEKCNi | Convert decimal to binary | CEKCN | 1 | BZ | 
i | | integer | | | | 
| ZIDATA | | Process initial value data | CEKAH { 1 | cr | 
| | | specificiation | { | { 
| | CEKAH1 | Entry for Type statements | j | | 
| | CEKAH2 | Entry for DATA statements | i | | 
| IDVDE | CEKMD1 | Generate integer divide | CEKMD | 4 | EV | 
| IF | CEKARA | Process IF statement | CEKAR | 1 | Ac | 
| IMPL | CEKBN1 | Process IMPLICIT statement | CEKBN | 1 {| BE | 
| IMPLY | CEKME1 [| Generate integer muitiply | CEKME i 4 | | 
| IMPL2 j CEKBP1 | Perform final IMPLICIT {| CEKBP | 1 { None | 
{ | { statement housekeeping | { | { 
| INSCON | CEKTJA | Inspect a console character | CzKTI { Exec | AI | 
| INSOT | CEKNI1 | Output code file | CEKNI | 4 | GK | 
| | CEKNI2 | Error processing for code | | | | 
| | {| file overflow | | | | 
| IOLIST {| CEKOI1 | Process input/output list | CEKOI | 4 | EJ | 
| | | element PF entry | i | | 
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FORTRAN ROUTINES LISTED BY MNEMONICS (Part 4 of 6) 


ee ae a ee ae te ee ee 
| | Entry | {| Routine| j Chart | 
| Mnemonic | Point | Purpose | ID Label] Phase | ID | 
}----------4--------} ---+----------------------------4--=------$-------$------- 
| IOLST CEKBW1 Analyze and encode list {| CEKBW | 1 | CE | 


elements for KEAD, WRITE, 
PRINT, and PUNCH statements 


| | 
{ | | | | | 
| | | | | | | 
| IPLUS | CEKMF1 | Generate integer plus | CEKMF | 4 | ET | 
| ISP | CEKJF1 | Inspect statement label | CEKIF | 2 | None | 
| | | references | | | | 
| IVAL { { Process initiai value | CEKCL | 1 | | 
| {| CEKCL1 | First value in type Statement | | { CJ | 
| | {| group | | | | 
{ | CEKCL2 | Other than first value in type | | | AI | 
| | {| statement group | | | | 
| iIvst | CEKCI1 | Insert variable in Symbol j CEKCI | 1 | BY | 
| | | Table | | | | 
| KEY | CEKOC1 | Determine the location of | CzKOC | 4 | FV | 
| | {| both operands of the | | | | 
| | | current operation | | | | 
| KEY1 {| CEKOR1 | Locate single operand | CEKOR | 4 | FW | 
| LAB | CEKJE1 | Process label references | CEKJE | 2 | cT | 
{| LABEL | CEKNU1 | Process referenced label | CEKNU | 4 | DV | 
{ | | PF entry [ | | | 
{| LABL | CEKAJA | Process statement label | CEKAJ | 1 | CN | 
| LADDR | CEKOV1 | Add py load address | CEKOV | 4 | EW | 
| LBL | CEKNV1 | Generate labeled branch | CEKNV | 4 {| FO | 
| LBSTR | CEKCCA | Process label string | CEKCC | 1 | CL | 
{| LDMOVE | CEKTKA | Move a line to a list data set | CEKTK | Exec | AJ | 
| LIBN { {| Select library functions | CEKBY j 1 | BO | 
| | CEKBY1 | Functions with automatic | | | | 
| | (| typing | | | | 
| | CEKBY2 | Functions used as arguments | | | | 
| | CEKBY3 | Exponential library function | | | | 
{ | | selection | | | | 
| LIF | CEKNL1 | Process logical IF PF | CEKNL | 4 | DY | 
| LINDUMP | CEKTSA | Dump compiler module entry | CEKTS | Exec | None | 
| MAX | CEKMU1 | Generate maximum operator | CEKMU | 4 j Fc | 
| MEMAC | CEKMV1 | Access storage | CEKMV | 4 | FM | 
| | CEKMV2 | | | | { 
| MIO | | Provide communication | CEKTH | Exec | AG | 
| | | between interface pro- | | | j 
| | { grams (contains CEKTK, | i | | 
| | | CEKTL and CEKTM) { | | | 
| | CEKTHA | Open the list data set | | | | 
| | CEKTHB | Close the list data set | | | | 
| | CEKTHC { Obtain a line for GNSS | | | | 
| | CEKTHD | Output diagnostic lines | | | | 
| | CEKTHE | Add lines to list data set | | | { 
| | CEKTHF | Flush a statement buffer | | | | 
| MOD | CEKTDA | Process terminal | CEKTD | Exec | AD | 
| | | modification | | | | 
| NAML | CEKBH1 | Process NAMELIST statement | CEKBH | 1 | BB | 
| NDLST | | Process and list PF entry | CEKOJ | 4 | | 
| {| CEKOJ1 | Process an end list program | | | EK | 
| | | file entry | | | | 
{ | CEKOJ2 | | | | | 
{ | | Generate a standard call | | | EK | 
| | | linkage | | | | 
| OPEN1 | CEKOT1 | Process open function | CEKOT | & | FG | 
| OPEN2 | CEKOU1 | Process open function | CEKOU | 4 | FH | 
| OPEN3 | CEKOX1 | Process open function | CEKOX i; 4 | FI { 
| OPEN& | CEKOY1 | Process open function | CEKOY | 4 | FJ | 
| OPENS | CEKOZ1 | Process open function | CEKOZ | 4 | FK | 
{| CEKOM2 | OPEN6 | Process function numbers 3, 4, | CEKOM2 | 4 | FL | 
| | ] 6-11, 16, 21, 24, 25, 28-32 | | | | 
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FORTRAN ROUTINES LISTED BY MNEMONICS (Part 5 of 6) 


(a a a ee ee ee 
| { Entry | | Routine] | Chart | 
| Mnemonic | Point | Purpose | ID Label] Phase | ID { 
~~--------}--------}------------ == === ---- = -- == === =f === =f =f 4 
OPND | CEKMW1 | Process operand | CEKMW | | FZ | 

; CEKMW2 Operator processing 


| 

| | | | 
| | CEKMW3 | Common expression operand | | | | 
| \ | processing | | | | 
{| PHASS | CEKNX1 | Control Phase 4 | CEKNX { 4 | Fig.30] 
| PHASE2 | CEKJA1 { Control Phase 2 | CEKJA | 2 | Fig.19| 
| PHASES5 | CEKSA1 | Generate FORTRAN compiler | CEKSA | 5 | None | 
| | {| output { | | | 
| Pac | {| Control compiler phases | CEKTA | Exec | AB | 
| | CEKTAA {| LPC to FORTRAN initial | { | i 
| | CEKTAB | LPC to FORTRAN continue | { | | 
| | CEKTAC {| LPC to FORTRAN early-end | | | { 
| PHEAD | CEKSE1 | Prceduce page headings for | CEKSE | 5 | None | 
| | {| each Phase 5 output page | | | I 
| PHIM {| CEKAD1 | Phase 1 main loop | CEKAD | 1 | AM | 
| PSR | | Process PAUSE, STOP, and | CEKBG | 1 | BA | 
| | | RETURN statements | | | | 
| PAUS | CEKBG1 | Entry for PAUSE statement | | { | 
| STOP | CEKBG2 | Entry for STOP statement | | | | 
| RETU | CEKBG3 | Entry for RETURN statement | | | | 
| ESTOP |] CEKBG4 { Stop when execution flows | | | | 
| | into END | | | | 
| PRSEC | CEKSG1 | Build PSECT | CEKSG | 5 | GO | 
| PSECT | - {| Phase 3 storage | CEKKS | 3 | None | 
{| RD | CEKOH1 | Process input/output | CEKOH | 4 | EI | 
| | | statement PF entry | | | | 
| RDIV | CEKMA1 | Generate real divide | CEKMA | 4 | ES | 
| RDM | CEKTEA | Receive diagnostic messages | CEKTE | Exec | AE | 
| RLSWS | CEKMX1 | Release temporary storage | CEKMX | 4 | GI | 
| RLITNL | CEKMH1 | Generate relational expression | CEKMH { 4 | FA | 
| RMUL | CEKMB1 | Generate real multiply | CEKMB | 4 {| ER | 
| RPLUS | CEEQC1 | Generate real plus | CEEQC | 4 | KM | 
{| RSLI | CEKMY1 | Process Result - Register | CEKMY | 4 { GA | 
| operand | | | | 
| RIN | CEKJD1 | Process label references | CEKID | 2 { cs | 
| RIRAN | CEKCE1 | Process ERR and END labels | CEKCE | 1 | CG | 
| | {| for input/output statements | | - | | 
| RTRN | CEKOE1 | Process RETURN | CEKOE | 4 | ED { 
| RWIO { } Process input/output | CEKBE { 1 { AY | 
| | | statements i | j | 
| | CEKBE1 | Entry for READ statement | | { | 
| | CEKBE2 | Entry for WRITE statement | | | | 
| | CEKBE3 | Entry for PRINT statement | | | | 
| | CEKBE4 | Entry for PUNCH statement { | | | 
| SADDR | CEKMZ1 | Generate local branch | CEKMZ | 4 | FN | 
| SELDR | CEKNH1 | Select even/odd General- | CEKNH | 4 | sc | 
| | | Register pair { | | | 
| SELFR | CEKMQ1 | Select Floating Register | CEKMQ | 4 | GD | 
{| SELGD | CEKNA1 { Determine whether division | CEKNA | 4 | FU | 
| | ] may take place in register | j | | 
| | | pair containing numerator | | | | 
| SELGM | CEKNB1 | Determine availability of | CEKNB | 4 | FT | 
\ | { register for multiplication | | | | 
| SELOP | CEKND1 | Select operand | CEKND | 4 | FQ | 
| SELSR | CEKNG1 | Select single Ceneral | CEKNG | 4 | GB | 
| | | Register I i | i 
| SFDEF | CEKBK1 | Enables EXPR to translate | CEKBK | 1 | BN | 
| ] {| a statement function | | { | 
| | | expression | | | | 
| SFEXP | | Expand statement functions | CEKBL { 1 | | 
| | CEKBL1 | Statement function expansion | | {| BO j 
| | {| initialization { | | | 
Da a a a ae ee 
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FORTRAN ROUTINES LISTED BY MNEMONICS (Part 6 of 6) 


eye ee Oe ge oe ose 
| | Entry | | Routine] 

| Mnemonic | Point | Purpose | ID Label] Phase 
}------—---}--------}-------------------------------}—--------4------- 
| j CEKBL2 | Statement function expansion | | 

| | } continuation . | | 

} SID | CEKAC1 | Statement identification | CEKAC | 1 
| SLONE | CEKOW1 | Select one operand in a | CEKOW | 4 
| | | register | j 

| SLPOS | CEKNF1 | Select position for operation | CEKNF | 4 
| SPECS | CEKSD1 | Process preset data . | CEKSD | 5 
| STFN2 | CEKBZ1 | Determine statement function | CEKBZ | 1 
| | } in Pass 2 | | 

| STOP | CEKOK1 | Process STOP and PAUSE | CEKOK | 4 
| | | statement PF entry | | 

| SUBE | | Process subprogram entry | CEKBS | 1 
| | | statements | | 

| | CEKBS1 | Process ENTRY statement | | 

| {| CEKBS2 | Process FUNCTION statement | { 

| | CEKBS3 | Process SUBROUTINE statement | | 

| SUBE2 | | Process subprogram entry | CEKBT | 1 
| | | statements in Pass 2 { | 

| | CEKBT1 | Process ENTRY statement { | 

| | CEKBT2 | Process FUNCTION statement | | 

| | CEKBT3 | Process SUBROUTINE statement | | 

| SUBS | CEKAG1 | Process subscripts | CEKAG | 1 
| SYMSRT | CEKSJ1 | Sort Sympol Table | CEKSJ | 5 
| TRBLD | CEKML1 | 3uild expression tree | CEKML | 4 
{ | CEKML2 | Generate tree entries for | | 

| | | conversion function | | 

| TRMPRO | CEKCG1 | Process subscript term | CEKCG { 1 
| TYPE | | Process Type statement | CEKAS | 1 
| {| CEKAS1 | Entry for INTEGER statements | [> * 

| | CEKASR | Entry for REAL statements | | 

| | CEKASC | Entry for COMPLEX statements | | 

| | CEKASL | Entry for LOGICAL statements | | 

| | CEKASD | Entry for DOUBLE I 

| | | PRECISION statements | | 

| VSCAN {| CEKJC1 | Make storage assignments | CEKIC | 2 
| | {| for all variables | | 

| WGHT | CEKNE1 | Assign a weight to each non- | CEKNE | 4 
| | | primitive mode of the { | 

| | | expression tree j | 
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Linkage Edited 
Routine ID Label 
(Module Name) 

CEKWX* 
(EXECFTN) 


CEKW1* 
(PHASE1) 


pS SSD SS ED A CS ENE ED ue ce 


LINKAGE EDITED COMPILER ROUTINES LISTED BY CODED LABELS (MODULE NAMES) 


SS Se amc a aaa asa aA aa | 
Rename Information 


ro 


| 
| | External Symbol | 
| | Definitions and | 
|Modules | References Prior | Names Following 
Description | Includedj| to Linkage Editing | Linkage Editing 
-----~------------- mt--— ~~~} ----- --- $+ = == $$ - 
Compiler Executive CEKTA | 
CEKTC 
CEKTD 
CEKTE 
CEKTF 
CEKTH 
CEKTO 
CEKTS 


| 

| 

| 

| 

| 

| 

{ 
Compiler Phase 1 | CEKAB 
| CEKAC 
| CEKAD 
| CEKAE 
| CEKAF 
| CEKAG 
| CEKAH 
| CEKAI 
| CEKAT 
| CEKAK 
| CEKAL 
| CEKAM 
| CEKAN 
| CEKAO 
| CEKAR 
| CEKAS 
| CEKAT 
| CEKAU 
| CEKAV 
| CEKAW 
| CEKAX 
i 
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(Part 2 of 5) 


Se ee a ee ee ee ee 1 


| | Rename Information | 


| | 

| | | External Symbol | 

Linkage Edited | | | Definitions and | 
Routine ID Label | |Modules | References Prior | Names Followiing| 
(Module Name) | Description j|Included| To Linkage Editing | Linkage Editing | 

~----------------}--------------------------—- + 
| CEKBW 
CEKBX 
CEKBY 
CEKBZ 
CEKCA 
CEKCB 


qr a 
| 
' 
| 
! 
t 
! 
' 
j 
| 
! 
\ 
! 
' 
{ 
! 
| 
t 

4 
{ 
' 
| 
( 
| 
{ 
! 
! 
| 
| 
| 
' 
{ 
| 
| 
| 
{ 
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| 
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{ 
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CHCBGA 
CHCBIA 
CHCBKA 
CHCBKC 


CEKUGA 
CEKUIA 
CEKUKA 
CEKUKC 
CEKUMA 


CEKW2 
(Phase 23) 


Compiler Phases 2 
and 3 
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(Part ‘3 of 5) 


Linkage Edited 
Routine ID Label 
(Module Name) 


(FO ree ree came ee crm cee cams cree memes ee eee SO eames oe cee eee ce Se oe ee me ee eee SE meee Gms meee See cme SS meee Sn came SY me Se ae we ce ee ee ee cen SE ee eg a Re ee Se ee OO ES ee Se Se ee ce 
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Compiler Phase 4 
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Appendix F: 


Description | Included 


CEKNN 
CEKNO 
CEKNP 
CEKNQ 
CEKNR 
CEKNS 
CEKNT 
CEKNU 
CEKNV 
CEKNW 
CEKNX 
CEKOB 
CEKOC 
CEKOD 
CEKOE 
CEKOF 
CEKOG 
CEKOH 
CEKOI 


| 
[= <5 ~- = foe 4 


Rename Information 
External Symbol 


Definitions and 
References Prior 


Linkage Edited Compiler Routines 


| 

| 

| Names Followiing| 
To Linkage Editing | Linkage Editing | 

4 
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(Part & of 5) 


(Sa re oe ee ee ee yoo or ee ee en er eg 1 
| | | e Rename Information | 
| | | fama pn 1 
| | | | External Symbol | | 
} Linkage Edited | | | Definitions and | | 
| Routine ID Label | j|Modules | References Prior | Names Followiing| 
| (Module Name) | Description jIncluded| To Linkage Editing | Linkage Editing | 
[------------------ $------------------- —}--------}--------- = -- =f ------=----- 
| | | CEKOS | | | 
| | | CEKOK | | | 
| { | CEKOL | | | 
, | | CEKOM | | | 
| I | CEKON | | | 
| | | CEKOP | | | 
i i | CEKOQ | | | 
| | {| CEKOR | | | 
| | | CEKOS | | | 
| { {| CEKOT | | { 
| { | CEKOU | | | 
| | | CEKOV | | | 
{ | | CEKOW | | | 
| | | CEKOX | | | 
l | | CEKOY | | | 
| { | CEKOZ | | | 
l { l | i | 
| CEKWS+# | Compiler Phase 5 | CEKSA | { | 
| (CEKPH5) | . | CEKSB | | | 
| | | CEKSC | | \ 
| | | CEKSD | | 
| | | CEKSE | | { 
{ { | CEKSF | | { 
| { | CEKSG | { { 
| | | CEKSH | | | 
| | | CEKSI | | | 
| { | CEKSJT | | | 
| | | CEKSK | | | 
| | co 4 | | 
| CEKUX+ | Contains all math- | CHCAD | CHCADI | CEKUQI | 
| (PHASE6) | ematical library | | CHCADR | CEKUOR | 
| } modules required | | CHCADW | CEKUQW | 
| | by the compiler. | | CHCBD4& | CEKUD4& | 
| | | | CHCBD5* | CEKBD5 | 
{ | | | (BD005) | | 
| | | | CHCBZA | CEKUZA { 
| | | | DEXP | CEKUX1* | 
| l i | | (DEXPU) | 
| | | CHCAF | CHCAFR | CEKUFR | 
| | { | CHCAFW | CEKUFW | 
| { | | CHCBZA | CEKUZA { 
| i | | DLOG { CEKUX2* | 
| { | | | (DLOGU) | 
| | | | DLOG10 | CEKUX3+* | 
| | | | | (DLOG10U0) | 
| | | CHCBD | CHCBDR | CEKUDR { 
| | | | CHCBDW { CEKUDW | 
| | | | CHCBD1 \ CEKUD1 | 
| i | | CHCBD2 i CEKUD2 | 
| | | | CHCBD3 {: CEKUD3 | 
| { i | CHCBD4 | CEKUD4 | 
| i | | CHCBD5 { CEKUDS5 | 
| | | | CHCBD5* I CEKBD5 | 
| | | | (BDO005) | | 
{ | | | CHCBE1 | CEKUE1 | 
{ | | | CHCBZA { CEKUZA | 
a a ag as a a Se a ach ee I I re oe Oia ae a ee J 
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(Part 5 of 5) 


ae ee rr nr a7 


| Rename Information 


| External Symbol | 
| Definitions and | 
| 


+ 
| 
| 

Linkage Edited | 

| 


\ 

| 

| 

| Routine ID Label {Modules | References Prior Names Followiing | 
{| (Module Name) | Description j{included| To Linkage Editing | Linkage Editing | 
|------------------ 4 -------------------- 4 ------—f ------ === === f= === = 
| | | | DVCHK | CEKUX5 

{ | | | | (DVCHKU) | 
| ~ de | | OVERFL | CEKUX4+ l 
| | | | | (OVERFLU) | 
| | | | SLITE { CEKUX6 | 
| | | j | (SLITEU) | 
| | | | SLITET { CEKUX7* | 
| | | | | (SLITETU) | 
| i {| CHCBE | CHCBER | CEKUER | 
| | | | CHCBEW { CEKUEW { 
| I { CHCBE1 | CEKUE1 | 
| | | CHCBG | CHCBGA | CEKUGA | 
| | { i CHCBGB | CEKUGB | 
{ | | | CHCBGC | CEKUGC | 
| | | | CHCBGD | CEKUGD i 
| | | | CHCBGR | CEKUGR | 
| | | i CHCBGW | CEKUGW { 
| | | | CHCBZA | CEKUZA | 
| i | CHCBI | CHCBIA | CEKUIA | 
{ { | | CHCBIB | CEKUIB | 
| | | | CHCBIR | CEKUIR | 
j | | | CHCBIW | CEKUIW | 
| | | | CHCBZA | CEKUZA | 
| | | CHCBK | CHCBKA | CEKUKA | 
| | | i CECBKB | CEKUKB i 
| | | { CHCBKC | CEKUKC | 
| | | | CHCBKD { CEKUKD { 
| { j | CHCBKE | CEKUKE | 
| | | | CHCBKR | CEKUKR { 
| | | | CHCBKW i CEKUKW | 
| | | | CHCBZA | CEKUZA | 
| | | | DEXP | CEKUX1*# | 
[ | | | | (DEXPU) | 
| { | | DLOG { CEKUX2* | 
| | | | | (DLOGU) | 
| { {| CHCBM | CHCBMA | CEKUMA | 
| | | { CHCBMB | CEKUMB | 
| | | { CHCBMR i CEKUMR | 
| | | { CHCBMW . | CEKUMW { 
| | | { CHCBZA | CEKUZA | 
| | | CHCBZ | CHCBZA | CEKUZA | 
| bo | | CHCBZR { CEKUZR | 
j | | | CHCBZW { CEKUZW | 
be a Bieta ati Da ee i as A aa legate ke a acca eta —4 
|*Names given in parentheses are temporary names and will be replaced by the preceding | 
| mame as soon as is feasible. Thus, module EXECFIN will become module CEKWX, module | 
| PHASE6 will become module CEKUX, entry point DEXPU will become entry point CEKUX1, | 
| etc. | 
L J 
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When more than one page reference is 
given, the major reference is first. 


AARG 

(see: Actual Argument Service Routine) 
ACOMP 

(see: Assemble Components) 


Acquire Entry from Compute and Removal 
Table 

decision table 104 

flowchart 458 

routine description 125 
Actual Argument Service Routine 

flowchart 334 

routine description 71-72 
Add by Load Address 

decision table 145 

flowchart 533-538 

routine description 104-165 


AGEN 
(see: Arithmetic Expression Generator) 
AGO 
(see: Assigned GO to PF Entry 
Processor) 
AIF 
(see: Arithmetic IF PF Entry Processor) 


Alphameric constant processing 44 
ANALYZ 

(see: Analyze Console Source Line) 
Analyze Console Source Line 

flowchart 240-241 

overview 11 

routine description 35 


ANDOR 
(see: Logical Expression Generator) 
ARDIM 
(see: Array Dimension Specification 
Processor) 
Argument Definition Point Entry 
in PF 643 
in PRF 42 
ARITH 
(see: Constant Arithmetic Subroutine) 


Arithmetic Expression Generator 
decision table 144 
flowchart 513-514 
routine description 159 
Arithmetic IF entry 
in PF 643 
in PRF 634,42 
Arithmetic IF PF Entry Processor 
decision table 142 
flowchart 476-480 
routine description 155 
Array Dimension Specification Processor 
flowchart 368-369 
routine description 77 
ASAR 
(see: Make Initial Assignment to 
General Register) 


684 


ASARS 
(see: Make Synonym Assignment to 
General Register) 


ASFR 
(see: Make Initial Assignment to 
Floating-Point Register) 

ASFRS 
(see: Make Synonym Assignment to 
Floating Register) 

ASSGN 
(see: Assign PF Entry Processor) 


Assemble Components 
character table 74 
decision table 75,54 
flowchart 337-344 
routine description 73-74 
ASST 


(see: ASSIGN statement processor) 
ASSIGN entry 
in PF 683 


in PRF 634,41 
ASSIGN PF Entry Processor 

flowchart 482 

routine description 155-156 
ASSIGN Statement Processor 

decision table 142 

flowchart 269-270 

routine description 57-58 
Assigned GO TO entry 

in PF 6483 

in PRF 634,41 
Assigned GO TO PF Entry Processor 

decision table 142 

flowchart 4%83 

routine description 156 
Assignment Character Table 78 
Assignment Precedence Table 78 
Assignment Statement Processor 

flowchart 250 

routine description 55-56 
ASSIST 

(see: Internal Symbol Dictionary 

Generator) 


BACKSPACE entry in PRF 43 
Begin Loop Processor 

flowchart 349-350 

routine description 75 
Begin Loop 1 entry 

in PF 6484 

in PRF 634,42 
Begin Loop 1 PF Entry Processor 

decision table 143 

flowchart 489 

routine description 156-157 
Begin Loop 1 PRF Processor 

decision table 103 

flowchart 421-423 

routine description 113-114 
Begin Loop 2 Entry 

in PF 644 

in PRF 634 


Begin Loop 2 PF Entry Processor 
decision table 143 
flowchart 490-498 
routine description 157 

Begin Loop 2 PRF Processor 
decision table 103 
flowchart 428-426 
routine description 114-115 

Begin Loop 3 Entry 
in PF 644 
in PRF 634 

Begin Loop 3 PF Entry Processor 
decision table 143 
flowchart 4%99-501 
routine description 157 

Begin Program Entry in PRF 633,41 

BGNLP 


(see: Begin Loop Processor) 
Blank Statement Processor 

decision table 51 

routine description 60 


BLDA 

(see: BLOCK DATA Statement Processor) 
BLDA2 
(see: BLOCK DATA Statement, Pass 2) 
BLNK 

(see: Blank Statement Processor) 


BLOCK DATA Statement Processor 
decision table 50,51 
flowchart 291 
routine description 60-62 


BL1 

(see: Begin Loop 1 PF Entry Processor) 
BL2 . 

(see: Begin Loop 2 PF Entry Processor) 
BL3 

(see: Begin Loop 3 PF Entry Processor) 


Build a List Data Set Buffer 
flowchart 244 
overview 11 
routine description 36 
BUILD 
(see: Object Program Module Builder, 
Build a List Data Set Buffer) 


CALL 
(see: CALL Statement Processor) 
CALL Entry in PF 643 
call 
function 67-68 
subroutine 67-68 
CALL Entry in PRF 634,42 
CALL Statement Final Processing 
decision table 51 
CALL Statement, Pass 2 
flowchart 304 
routine description 62 
CALL Statement Processor 
decision table 51,182 
flowchart 485 
routine description 62,156 
CALL2 
(see: CALL Statement Pass 2) 
Canonical Form Routine 
decision table 105 
flowchart 443-444 
routine description 121 


CDIV 

(see: Complex Divide Generator) 
CEKAB 

(see: Extract Source Character) 
CEKAC 

(see: Statement of Identification) 
CEKAD 

(see: Phase 1 Main Loop) 
CEKAE 

(see: Assemble Components) 
CEKAF 

(see: Array Dimension Specification 

Processor) 
CEKAG 

(see: Subscript Processor) 
CEKAH 

(see: Initial Value Data Specification 

Processor) 
CEKALI 

(see: Expression Processor) 
CEKAJ 

(see: Statement Label Processor) 
CEKAK 

(see: Assignment Statement Processor) 
CEKAL : 

(see: END Statement Processor) 
CEKAM 

(see: EXTERNAL Statement Processor) 
CEKAN 

(see: Conversion subroutine) 
CEKAQ 

(see: GO TO Statement Processor) 
CEKAR 

(see: IF Statement Processor) 
CEKAS 

(see: Type Statements Processor) 
CEKAT 

(see: CONTINUE Statement Processor) 
CEKAU 

(see: DIMENSION Statement Processor) 
CEKAV 

(see: COMMON Statement Processor) 
CEKAW 

(see: Declaration Statement, Pass 2) 
CEKAX 

(see: Executable Statements, Pass 2) 
CEKAY 

(see: EQUIVALENCE Statement Processor) 
CEKAZ 

(see: DO Statement Processor) 
CEKBA 

(see: Begin Loop Processor) 
CEKBB 

(see: End Loop Processor) 
CEKBC 

(see: ASSIGN Statement Processor) 
CEKBD 
(see: File Control Statement Processor) 

CEKBE 

(see: Input/Output Statement Processor) 
CEKBF 

(see: FORMAT Statement Processor) 
CEKBG : 

(see: PAUSE, STOP, RETURN Statement 

Processor) 
CEKBH 

(see: NAMELIST Statement Processor) 
CEKBI 
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(see: BLOCK DATA Statement Processor) 
CEKBJ fs 
(see: BLOCK DATA Statement, Pass 2) 
CEKBK 
(see: Statement Function Definition) 
CEKBL 
(see: Statement Function Expansion) 
CEKBM 
(see: DATA Statement Processor) 
' CEKBN 
(see: IMPLICIT Statement Processor) 
CEKBP a 
(see: IMPLICIT Statements, Pass 2) 
CEKBQ 
(see: Fall Through Determination) 
CEKBR 
(see: Blank Statement Processor) 
CEKBS 
(see: Subprogram Entry Statements 
Processor) 
CEKBT 
(see: Subprogram Entry Statements, Pass 
2) 
CEKBU 
(see: CALL Statement Processor) 
CEKBV 
(see: CALL Statement, Pass 2) 
CEKBW 
(see: I/0 List Processor) 
CEKBX 
(sees Function Classifier) 
CEKBY 
(see: Library Function Selector) 
CEKBZ 
(see: Statement Function Definition, 
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(see: Select Even/Odd General Register 

Pair) 
CEKNI 

(see: Code File Output Subroutine) 
CEKNJ 

(see: Comma Operator Processing 

Subroutine) 
CEKNK 

(see: Arithmetic IF PF Entry Processor) 
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flowchart 262 
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